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De eerste MSX-computer metingebouwde randapparatuur. 

De SV738 X’press is een zeer krachtige computer die naast de 
standaard MSX-specificaties ook nog voorzien is van het CP/M 
operating system (80 kolommen). Met MSX-DOS kunt u zowel onder 
40 ais onder 80 kolommen draaien, 

Behalve een RS232C interface voor datacommunicatie en een 
standaard Centronics printer interface, heeft de SV 738 X’press een 
ingebouwde 3'/2" disk-drive 360K, die onder 3 operating systems 

werkt: Disk Basic, MSX-DOS en CP/M. Een extra 

disk-drive kan worden aangesloten, even- 
als andere MSX hardware. 


De sv 738 X'Press is in de 
volgende configuraties leverbaar; 

SV 738 X'Press f 999- 

* incl. Wordstar Mai I merge 

Nederlands f 1398,- 

* incl. Micropro pakket neder¬ 

lands en groene high resolution 
monitor f 1998,— 


Uw Spectravideo-dealer geeft graag 
tekst en uitleg. 
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VOORWOORD 


WELKE WERELDSTANDAARD?? 


Met de komst van de nieuwe MSX-2 machines begint het ernaar uit 
te zien dat de -al twi j felachtige- *wereldstandaard 1 nu vrijwel 
geheel van de baan is, Dit betekent niet dat we nu de MSX 
computers minder zijn gaan waarderen maar we zijn teleurgesteld 
dat de aangekondigde wereldstandaard niet dat geworden is wat 
ons is voorgehouden. Het ziet er naar uit dat hier in Nederland 
a.lleen Philips en Sony de MSX-2 blijven uitbrengen; de meeste 
a.ndere merken houden zich bezig met Japan. Misschien zullen nog 
een paa.r merken op de Engelse raarkt verschijnen (JVC, Toshiba) 
ma.ar zeker is dit niet. 

Op de oproep in het vorige blad over de diskBASIC opdrachten 
hebben we geen oplossingen gehad; alleen reakties van mensen met 
hetzelfde probleera. Voorlopige conclusie: er is sprake van een 
foutje in de BASIC, dus deze opdrachten (MKI$, MKS$, MKD$, CVI, 
CVS en CVD) bij de MSX-1 NIET gebruiken. Bij de Philips VG-8235 
hebben we deze tout nog niet gevonden en het schijnt dat bij 
deze machine de disk-BASIC wel naar behoren functioneert. Wei 
even rekening mee houden wanneer je een programma ziet waarin 
deze instructies zijn gebruikt! A1 met a.l is dit voor de 
gebruiker erg frustrerend en we vrezen dat met de komst van meer 
MSX-2 computers nog meer problemen de kop opsteken. Voor de 
komst va.n een eventuele MSX-3 houden we helemaa.l ons hart vast; 
misschien kunnen we beter de PC's eens nader gaan bekijken. Hier 
is meer 'wereldstandaard' te vinden dan bij de MSX en de prijzen 
komen steeds dichter in de buurt van de homecomputers. 

MSX-GIDS NU 100% MSX 


Zowel de redaktie als de uitgeverij van de MSX-Gids zijn nu 
volledig overgegaan op MSX-computers. De bestanden zijn van onze 
Apple's overgezet naar de MSX en de Apple computers zijn 
verkocht. Dit had wel behoorlijk wat voeten in de aarde en meer 
over dit 'adventure 1 kan je lezen in de adventure rubriek van 
Jocelyn. De uitgeverij verwerkt nu de verschi1lende bestanden en 
de administ ra. t ie met een Spectra Video 738 (X'Press) en het 
Micropro pa.kket en op de redaktie wordt nu alles geda.a.n met een 
Philips VG-8235 en een JVC HC-7g met Tasword als tekstverwerker 
en eigen programma's voor a.lle andere bewerkingen. 

EXTRA EDIT IE MSX-GIDS 


Volgende raaand verschijnt een extra nummer van de MSX-Gids. Door 
de grote hoeveelheid programma's is het de moeite wa.ard een 
extra nummer uit de brengen dat onze abonnees GRATIS zullen 
ontvangen. Lezers die nog geen abonnement hebben kunnen op de 
a.chterzijde van dit blad zien hoe ze -als ze snel zijn- ook dit 
nummer gratis kunnen verkrijgen. Het extra blad verschijnt ook 
normaal in de boekwinkel; wel in een beperkte oplage en alleen 
in Nederland. De prijs voor de losse nummers bedraagt FI. 7,95. 

MSX-3 ????? 


Vrijwel zeker alles hierover in het komende nummer maar lees 
maar eerst het vervolg van deze rubriek op pagina 53 >>>>>>>>>> 
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WURZLE 



Met dit spel heeft C.C.R. Poirot zijn 
artikel uit nr. 4 en 5 (tekens en sprites) 
in praktijk gebracht. Het resultaat is 
gelijk aan een spel dat in SCREEN 2 
gemaakt zou zijn, raaar de snelheid ligt 
wel aanmerkelijk hoger. Er moet echter 
bijvernield worden, dat hier de maximaal 
haalbare snelheid in BASIC is bereikt* 
Voor spellen met meer aktie zal toch echt 
een gedeelte in machinetaal nodig zijn of 
in dat geval zal het gehele spel in b.v. 
'C' geschreven moeten worden. 

Wurzle is meteen een van de beste spellen 
geworden die, tot nu toe, in de MSX-Gids 
hebben gestaan. De handleiding staat in 
het spel, dus intikken maar........ 


Beeldscherm: WIDTH 36 
10’DEFINTA-2s DEFSTRP,H 

20 DATA 183C767F7E7C3C1C,1B7EDBFF5A6 
63C18,1B3C6EFE7E3E7C38 
30 DATA 1B3C3C3C3C000000,187E7E7E7E0 
00000,1B7EFFFF7E7E3C18,00F1838000382 
C37 

40 DATA 0081818181B524E7,008FC101001 

C34EC,008181B100242424 

50 DAtA 183C725E4C7E7E3C,183C4E7A327 

E7E3C,3C7E7ED5FF181800 

60 DATA 7,1,1,39,2,2,71,3,1,103,4,2, 

135,5,1,167,6,2 

70 DATA 1,10,1,15,3,30,24,3,4,17,19, 

22,18,4,28,16,28,3,1,5 

80 DAtA'9,24,29,23’2,29,8,27,2,21 

90 DATA 2,3,8,3,10,18,26,2,8,24,4,3, 

10,18,24,2,6,16,3,6,9,16 

100 DATA 3,25,6^23,2,29,15,30,4,21 

110 DATA3,5,12,21,3,11,15,23,4,4, 12, 

20,24,4,9,11,18,26,3,10,14,24,4,5,13 

,21,23 

120'DATA4,20,9,29,2,17,7,23,3,29 
130 DATA 3,5,13,20,4,2 ? 13,20,23,3,7, 
15,19,3,3,5,20,3,2,14,22,4,10,18,20, 
22 

140 DATA 10,28,12,30,2,14,10,10,7,27 
150 DIMR(172,2),RX <6> ,RY(6) 

160 GNSTDPGOSUB2750: StOPON 
170 CLSi SCREEN1,0,2:WIDTH26iKEVOFF;C 
DL0R15,1,1 

180 I—0:11=0! I2=0sA=0sS=0:WY=0:WX=0s 
Z=0:X=0:X1=0:ST=0:T=0:7=0:CO=0:SC=0 
190 H="F8888F88F8888FB8 ,, : A=240: GOSUB 
1910 


200 T=30:7=15:A=6:GOSUB2000 

210 H= , '427E427E427E427E" : A=249: GOSUB 

1910 

220 T=31:V=15:A=4:GOSUB2000 
230 PRINT:PRINT 


240 
250 
255 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3 BO 


11 * =chr$(249) x+ = hi -ft+graph 
■" = =chr$(240) =+shi-f t+graph 
PRINT 

pr i nt ” |---— --———|;; 

print" s s s sje == ■ 5_s_;; 

PRINT" I- 1 ” 

PR I NT " r -" 

PRINT" M S X BIDS SOFTWARE " 

PRINT" 1---—-" 

PRINT" ,-—-1 ” 

PRINT" ROBERT POIROT 1986 " 

PRINT" <-----1 " 


390 PRINT: PRINT" kent u dit. spel al 
(j/n)":BEEP 

400 H=INKEY$:IFH=""THEN400 
410 IF H="n"ORH="N"THEN2930 

415 WIDTH32:PRINT"OGENBLIK JE." 

420 LOCATE0, 17:PRINT;5PC< 30) 

430 H="0000000C183C7EFF":A=232:GOSUB 
1910 

440 H="0E3F7FFFFFFF7F39”:A=1:G0SUB19 

10 

450 H="00085CFEFBFF7E3C"s A=8:GG6UB19 
10 

460 H="000000IFlFlFlrlF":A=9:GOSUB19 
10 

470 H="00000000B0S0EFE.F"s A=10:GDSUB1 


910 

480 T=29:7=4:A=1s GOSUB2000 

490 FORI=101TO113:READH:A=I:GOSUB17i 

0:NE X T 

500 F0RI=1T06 

510 READX : READR < X , 1 ) ,R(X,2) -.NEXT 
FORI=1TC6STEP2 


520 


530 

540 


GOSUB2060 

GOSUB2060 

GOSUB2060 

GOSUB2060: 


NEXT:GOSU 


A=111:S=I+10 
A= 11 2 s S= I +11 
550 A=113:S=I+20 
560 A=113:S=I+21 
B2440 

570 H=“FFFFFFFFFFFFFFFF":A=146:GOSUB 
1910 

580 H="183C6676666E243C":A= 

1910 

590 7=3:A=1iT=28:SOSUB2000 
600 H="183C6EFE7E3E7C3S":A 
1910 

610 FORI=5T07s T=Is7=11:A=6 sGOSUB2000 
i NEXT 




4:GOSUB 


152:GOSUB 


620 FOR I=8TG11:T=I:7=15:A=4: GOSUB200 


0:NEXT 

630 T=19 s 7=9:A=1:GOSUB2000 
640 T=18:7=4:A=4:GOSUB2000 
650 LOCATES ,17: PR I NT " DRUKflEDEfEVUURKNO 
PfEVANffiDEffTE": LOCATES, 18: PRINTTAB (3) s 
" GEBRU1KENffJOYSTICK" 

660 IFSTRIG(3)=- 1ORSTRIG(3)=-1THENJ0 
=1:GOT0700 

670 IFSTRIG(2)=-lORSTRIG(4)=-1THENJ 0 


=2:GOT0700 

680 IFSTRIG(0 > =~1 THENJ0=0:GOTO700 
690 F'LAY m L64ECD " : GOT0660 
700 LOCATE®, 17sPR 1 NT;SPC«30) 

7i 0 LOCATE®,18:PRINTsSPC(30) 

720 IF J0=0THEN740 

730 LOCATES, 1 7: PR I NT "fEUfESPEELTfEMETffJ- 
OYSTIC*"+mD$ (STR*< JO) ,2,1) + , *fE#EfE" i 
TO750 ’ ‘ ’V/ 


(c) Junior 99 





































740 LOCATE®, 17: PR I NT " fEUfESPEELTfENETfED 
EflECURSDRTOETSENfE" 

750 SC=0:W=3:V=0:FORI-1TO2000:NEXT 
760 ’ 

770 ’scherfd opbouw 
780 ■ 


790 CL 5 

800 CO-CO+1:IFCO >3THENCO~0:REBTORE70 
810 PR I NT " flE#EH 10000flESCORE0000ffiT IME000 
0(^1Eff fEff 11 

820 H=STR*(RX(0)):L0CATE9-LEN(H),0:P 
RINTMID*(H„ 2,LEN(H)-1) 

830 8='’yyy” : L0CATE29,0s PRINTMID4 <H, 1 
,W> 

840 FORI-3T 023STEP4 

850 FORn=0TO31:VPOKE (6144+11 + 1*32) , 
240:NEXT 

860 READX:FORIl=ITOX:READY 

870 IFI=23THEN2=232ELSEZ=32 

8B0 FDRI2-YT0Y+4:VPOKE(6144+12+1*32) 

,ZsNEXTI2,11,1 

890 FORY=3T01981F P 4 

900 FORI=IT02 

910 READX:X=X+6144+(Y*32) 

920 VPOKE< X > ,249:VPOKE(X+32),249:VPO 
KE(X+64),249:VPOKE(X+96),249 
930 NEXTI,Y 

940 F0RY=2TD22STEP4:F0RI-1T02 

950 X«INT<RND(1)* 100):IFX<20RX >29THE 

N950 

960 IFVPEEK(6144+X+(Y*32)+32)<>240TH 
EN950 

970 IFVPEEK<6144+X+(Y*32))<>32THEN95 
61 

980 VP0KE6I44+X+(Y*32),224:NEXTI,Y 
990 TIME=0:GOSUB2B20 

1000 FORI = lTO6:PUTBPRnEI + 10, (RX (I) , 
RY <I)),11:PUTSPRITEI+20, (RX(I),RY<I) 
+8),13:NEXT 
1010 ’ 

161261 ’ verplaat&en WURZLE 
1030 *' 

1040 PLAY " N66161L6402 " 

1050 WY=7:WX=232:ST=1:T=0:Z=0:RT=1:G 

0SUB1250 

1060 GOSUB2550 

1070 X-WX/8:Y=WY/8:IFVPEEK(6144+X+(Y 
*32)+64)-224THENVP0KE6144+X+(Y*32)+6 
4,32:V-V+1:SC=SC+10:G0BUB2810 
1080 IFV-12THENF0RI = ITO30:PUTSPR3 TEI 
,<10,200),1:NEXT:GOSUB2440:V=0:G0T07 
30 

i090 IFINT(TINE/50)-60THEN:GGBUB2790 


: GOTO? 1661 

1100 GOBUB2100:IFZ-32THEN2160 
1110 IF Z-232THEN2480 

11 261 IFWX-RX (RT ) <BANDWX-RX (RT) >~5AND 


R (WY 
11 30 
R (WY 
11 40 
1150 
1 160 
1 1761 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


2) —1 THEN21661 

1FRX(RT)”WX< 8ANDRX(RT)-WX>-5AND 
2)=2THEN2160 


A—STICK(JO) 

IFSTRIG (JO) *=-1THENGOTO1800 


I FT = 161THENT—0: GOSUB12561 


IFA=1THENT=0:GOSUB1330 
I FA-3THENT=£l: GOSUB 1 460 
IFA-5THENT« 0: GOBI)B1560 
IFA=7THENT-0:GOSUB1700 
GOSUB2620: T=T *■ 1: GOTO 1060 


•' st i 1 st aan 


JFST-61T HEN 1290 

A—102:8=5:GOSUB2060 

A-105:S“6:GOSUB2060 

A-108:S=7:GOSUB2060 
ST-61: RETURN 


1300 ' 

1310 'klimmen 


1320 ? 

1330 IFST=1THEN1370 
1340 A=106:S=5:GOSUB2060 
1350 A=105:S=6:BOSUB2060 
1360 A«110:S=7:GOSUB2060 
1370 X-WX/8:Y=WY/8 

1380 IFVPEEK(6176+Y*32+X)<>249THEN14 
20 

1390 PL AY"L64CDE03CDED5CDE02":FOR3 = 1 
TO 16 

1400 WY-WY-2: G0SUB25561 

1410 NEXT:X-WX/8:Y-WY/B:IFVPEEK <6176 

+Y*32+X)=249THEN1390 

1420 ST-1:RETURN 

1430 > 

14461 11 1 oop rechts 
1450 ■' 

1460 IFST=2THEN1500 
1470 A=101:S=5sGOSUB2060 
1480 A=104:S=6:GOSUB2060 
1490 A=107:S=7:GOSUB2060 
1500 IFWX+R>255THEN1520 
1510 WX-WX+4: GDSUB25561: WX-WX+4 
1520 PLAY »DE":ST=2s RETURN 
1530 ? 

1546* ? afdalen 
1550 ? 

1560 IFST=3THEN1606» 

1570 A=106:S=5:GOSL1B2060 

15861 A=105:S=6:GOSUB2066J 

1590 A-l10:S-7:6OSUB2060 

1600 G0SUB2100:IFZ <>249THEN1660 

1610 PLAY"L6405CDE03CDE02CDE":FORI=1 

T016 

1620 IFWY+2 >=i71THEN1660 

1630 WY=WY+2 

1640 GOSUB2550;NEXT 

1650 GOSUB2100:IFZ=249THEN1610 

1660 ST=3sRETURN 

1670 ? 

16861 11 1 oop links 
1690 ' 

1700 IF5T=4THEN1740 
1710 A=103:S=5:GOSUB2060 
1720 A= 1614: S*=6; GDSUB20661 
1730 A= 1619s S-7: GOSUB2060 
1740 IFWX-B<-7THEN1760 
1750 WX—WX—4sGOBUB2550:WX=WX-4 
1760 PLAY H FG ,, sST=4s RETURN 
1770 ? 

17S61 ^pringen 
1790 F 

1800 PLAY"06ADG02":F0RI=1TD3:WY=WY-8 

:GOSUB1850:GDSUB2550:NEX TI 

1810 GOSUB1850:GOSUB2550 

1820 FOR1=1T03:WY=WY+8:GOSUB1850:GOB 

UB2550:NEXTI 

1830 G0SUB21 00 :IFZ=32THEN2130 
1840 IFZ=232THEN2480ELSE1070 
1850 IFST=2ANDWX+8<255THENWX=WX+B 
I860 IFST s =4ANDWX—8>“7THENWX=WX—8 
1370 RETURN 
1SS0 ? 

18965 ’ spr i te/teken definitie 
1900 5 

1910 IFA< 30THENZ=9ELSEZ =7 
1920 A=A*B+BASE<Z)sX=1 
1930 FORX1=0TO7 
1940 P= , ’?<H ,, +HID*(H, X,2) 

1950 VPOKE (A + Xl ) ,VAL.(P) 

1960 X=X+2:NEXT:RETURN 
1970 ? 

19861 ? k 1 eur d c?-f i n i t i e 
1 990 ? 

2000 A-A+ <V*16) 

2010 T=T+8192 

2020 VPOKE(T),A:RETURN 

2030 ? 
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2040 ’ q u i ksprite 
2050 ’ 

2060 S=S#8+14336: A=A#B: FORI 1=0TO7: VP 
0KE5+I1, VPEEK(A+11):NEXT:RETURN 
2070 =* 

2080 ’bDdem controle 
2090 ? 

2100 X =WX/8:Y=WY/8 

2110 7 =VPEEK(6144 + X+V*32+96) 

2120 RETURN 
2130 ’ 

2140 ' WURZLE val t do pel 
2150 r 

2160 WY*.WY+B: BOSUB2550: PLAY"O5M100L1 
6GFDEDCL8BL4A ” s I =WY: F0RWY= I TO I 80STEP 
8 

2170 GGSUB2550 

2180 GOSUB2100:IFZ-2S2THEN2480 
2190 IF 1 =240THEN2210 
2200 NEXT 

2210 PUTSPRITE1, <WX~4,WY+B),6 
2220 FOR1 = 1TO100: NE X T' 

2230 FORI=1T07:PUTSPR17El,<10,200),1 
: NEXT 

2240 PUTSPR]TE8, < WX,WV+B),14 
2250 PUTSPRITE9, (WX--B,WY+B),12 
2260 PUTSPRITE10, < WX-3,W'Y■+ 8>,15 
2270 IFW=0THEN2350 
2280 IFINKEY*K >CHR*<13)THEN2280 
2290 W~W»1:L0CATE29,0:PRINT M flEflEff*":LOG 
ATE29,0sH$="yyy"s PRINTMID*<H$, 1, W> 
2300 RY <1)=7:RX <1> = 1 NT (RND< - f IME>#10 
0) 

2310 IFRX <1> <1THEN2300 

2320 IFINT(RND(“TIME))>.5THENRX(1)=R 

X(1)+50 

2330 FORI=BTD10:PUTSPRITE1,(10,200), 
is NEXT 

2340 L0CATE23,0:PRINT"0000”:TIME-0:G 

OSUB2790:GOTO1000 

2345 WIDTH25:LOCATE0,10 

2350 LOCATE?, 10 s PR I NT ”**:*********** * 

■* d- i ^ ^ a i? 

IT* 

2360 LOCATE?,11:PRINT"* 

* •• 

2370 LOCATE?,12:PRINT"* G A M E 0 v 
E R *" 

2380 L DC A T E. 7,13 s PRINT " * 

* " 

2390 LOCATE?, .1 4: PR I NT " *#**#**#****## 

^ x x a. >1. a. j; 




*.400 IFINKEY$< >CHR* (13) THEN2400 
2405 WIDTH32 

2410 FORI=87030:PUTSPRITEX,(10,200), 

1:NEXT:GOSUB2440 

2420 IF SCI-RX (0) THENRX (0) =SC 

2430 CO=0:V=0:5C=0:W=3:TIME—0:RESTOR 

E70:GOTO790 

2440 RX(1)=1;RY <1) =7 s RX(2)=247 sRY(2) 
=39:RX <3) = 1:RY< 3)=71:RX(4)=247:RY\4) 
=i03:RX (5) =1:RY(5)=135:RX(6)=247;RY( 
6>=167:RT=1:RETURN 
2450 7 

2460 ? WUR Z L E v er dnn k t. 

2470 ? 

2480 PUT8PR I TE 1, (WX--4, 187) ,4 
2490 PUTSPRITE2, < WX + 5, 187 > , 4 
2500 .1 =WY s FORWY= I T O 1 96 
510 GOSUB2550:NEXT:WY«I+6sGOT02210 




*■= 

vrv si/; 


* pi tatsen WURZLE 
2540 ' 

2550 PUTSPR1TE5, <WX,WY),9 
2560 PUTSPR I TE 6!, <WX,WY+8) , 12 
2570 PUTSPRITE7, (WX,WY+8),15 
2580 RETURN 


260 0 r ‘ V E R P L A ATS E N R O B0T5 



2610 


2620 I FWY< 1 VHENY=-1 ELSEY=WY 
2630 IFR(Y,1)<>0THENRT=R(Y,1> 

2640 IFR(Y,2)=2THEN2670 

2650 RX <RT)=RX(R T> +8 i IFRX < RT) >247THE 

N2690 

2660 GOT02680 

2670 RX < RT)~RX < RT)-8 sIFRX < RT)<1THEN2 
690 

2680 PUTSPRITERT +10, (RX(RT),RY(RT)) , 
11:PUTSPRITERT+20, (RX < RT >,RY < RT> +8), 
13:GOT02740 

2690 IFR(Y,2)=2THEN2720 

2700 IFRND<“TI ME)>,5THENRX < RT) = 1:GOT 

02740 

2710 A=112:S=RT+10:GOSUB2060:R(Y,2)= 
2:GOTD2740 

2720 IFRND(-TIME)>.5THENRX(RT)=247:G 
0702740 

2730 A=111:S=ET+10:GOSUB2060:R(Y,2)= 

1 

2740 RETURN 

2750 SCREEN0:WIDTH40:KEYON:END 

2760 ; 

?7 7 0 ’ scor & /1. i ) d teller 
2780 * 


t£~ 


t^i 


29(i 

2910 
2920 
2930 


810 IF V-12THENSC=SC+100 
2B20 H=ST R$ (SC) : 1 = 60™ INT (TI ME / 50) 

2830 L0CATE19- L EN < H) ,0 
284 0 P RI N T MID * (H, 2, L E N (H > » 1 ) 

7850 H=5TR^(T) 

Z860 IFL.EN (STR4 (T ) > < 3THE.NL0CATE23,0: 
PRINT M 0000” 

2370 LOCYVTE2B“LEN (H) , 0 
2830 PRI NT MID$ < H„2,LEN(H)- 1) 

H=STR$(RX(0)) 

2900 L.OCATF9-L.EN (H) , 0 

PRI NT MID*(H,2,LEN v H)-1) 

RETURN 

KEYOFF:CLS:SCREEN©:WIDTH40s PRIN 
f’‘bet verhaal "iPRINT 

2940 PRINT M WURZLE is een journalist 
die hot. milieu” 

2950 PRINT”schandaal van de eeuw op 
het spoor is , 

2960 PRINT’'Een criiru nele tabrikant g 
ebruikt namelijk een verval1e 

n r i ool om z waar gi 11 i g a-f val op 

te siaan en te lozen in het grand 
water.” 

2970 PRINT"Ook dcs atmos-feer in deze 
onderaardse- ruimte is zwaar vergi 
ftigd, het werk word! dan ook ged 
aan door robots. 11 

2980 PRINT”Deze robots smijten potte 
nkijkers zander pardon naar be 

neden om een • ongeluk voor te w 
enden.” 
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2990 PR I NT” Door d at de vloeren gli 
bberig zijn en de lucht zo gi-ftig 
dat je al na 60sec. bewusteloo 

5 naar beneden stort is zo’n ongel 
uk niet. denkbeel di g. " 

3000 PRINT”Hoe dan ook WURZLE sal de 
se gevaren moeten trotseren en z 

o veel mogelijk monsters als bewi 
js moeten versamelen om dese rnisst 
anden aan de kaak te stellen. 

Creturn]" 


3010 IFINKEY$<>CHR$(13)THEN3010 

3020 CLS:PRINT "De spelregels. 

.":PRINT 

3030 PRINT”Dit spel kan sowel met jo 
ystick 1, joystick 2 als met de 

cursortoetsen gespeeld worden. 

waneer u voor 
dit laatste kiest dient de spatie 
balk als vuurknop. 

3040 PRINT"De besturing van WURZLE g 
eschiedt als volgt:" 

3050 PRINT" klimmen - j 

oystick omhoog a-fdalen 

- joystick omlaag loop naar r 

echts- joystick rechts loop na 

ar links - joystick links" 

3060 PRINT" springen- joystick 

naarwens links o-f re 

chts 5 de vuurknop i 

ngedrukt-" 

3070 PRINT"~U hee-ft 4 1 evens per spe 
1. -Vallen is dodelijk. 

-In gi-ftig water 

verdrinkt u. —Langer dan 6 

0 sec. in een speelveld verblijv 

en is dodelijk. 

3080 PRINT”-voor nieuw leven/spel Cr 
eturnj -elk genomen monster 

is 10 punten. -elk speelveld is 

100 pun ten. ilreturnU" 

3090 IFINKEY$<>CHR$(13)THEN3090 
3100 GOTO 170 
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440 

- 

65 

Regel 

1340 - 

36 

Regel 

2240 

- 

238 

450 

- 

33 

Regei 

1350 - 

36 

Regel 

2250 

- 

248 

460 

- 

196 

Regei 

1360 - 

42 

Regel 

2260 

- 

250 
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- 

182 
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1370 - 

66 
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13B0 - 
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47 
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B2 
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1390 - 
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2290 
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500 
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40 
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27 
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252 
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7 

Regel 
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520 
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Regei 
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530 
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102 

Regei 
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540 
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104 
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48 
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57 
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38 
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58 
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- 

20B 
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35 

Regel 
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58 

Regel 

2420 
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100 

Regel 

1550 - 

58 
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2430 
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143 
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119 

Regel 
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99 

Regel 
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- 

201 

670 

- 

122 

Regel 

1570 - 

36 

Regel 

2450 

- 

5B 

680 

- 

132 

Regei 

1580 - 

36 

Regel 

2460 

— 

58 

690 

* 

23B 

Regel 

1590 - 

42 

Regel 

2470 

— 

58 

700 

- 

112 

Regel 

1600 - 

70 

Regei 

2480 

“ 

246 

710 

- 

113 

Regel 

1610 - 

164 

Regel 

2490 

- 

247 

720 

- 

18 

Regei 

1620 - 

64 

Regei 

2500 

- 

56 
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- 

1B3 

Regel 

1630 - 

83 

Regel 
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- 

252 
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65 
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87 
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- 

58 
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73 
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37 
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- 

SB 
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- 

58 
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114 
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2540 

- 

5B 
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- 

58 
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1670 - 

58 
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2E0 

- 

222 

780 

- 

58 

Regel 

1680 - 

58 

Regel 

2560 

- 

234 

790 

- 

159 

Rege 

1690 - 

58 

Regel 

2570 

- 

238 

BOO 

* 

245 

Regel 

1700 - 

240 

Regel 

2580 

- 

142 

BIO 

- 

115 

Regel 

1710 - 

33 

Regel 

2590 

- 

58 

B20 

- 

42 

Regel 

1720 - 

35 

Regel 

2600 

- 

58 

830 

- 

101 

Regel 

1730 - 

41 

Regei 

2610 

- 

58 

840 

- 

190 

Regel 

1740 - 

13 

Regel 

2620 

- 

68 

850 

- 

55 

Regel 

1750 - 

182 

Regel 

2630 

- 

93 

860 

- 

97 

Regel 

1760 - 

63 

Regel 

2640 

- 

40 

B70 

“ 

B6 

Regel 

1770 - 

58 

Regel 

2650 

- 

9 

880 

- 

163 

Regei 

1780 - 

58 

Regel 

2660 

- 

25 

890 

- 

202 

Regel 

1790 - 

58 

Regel 

2670 

- 

24 

900 

- 

184 

Regel 

1800 - 

78 

Regel 

2680 

- 

151 

910 

- 

154 

Regel 

1810 - 

176 

Regel 

2690 

- 

90 

920 

- 

250 

Regel 

1820 - 

60 

Regel 

2700 

- 

198 

930 

- 

81 

Regel 

1830 - 

86 

Regel 

2710 

- 

202 

940 

- 

190 

Regel 

1840 - 

135 

Regel 

2720 

- 

186 

950 

- 

150 

Regei 

1850 - 

18 

Regel 

2730 

- 

57 

960 

- 

75 

Regel 

1860 - 

16 

Regel 

2740 

- 

142 

970 

- 

91 

Regel 

1870 - 

142 

Regel 

2750 

- 

61 

980 

- 

166 

Regel 

1880 - 

58 

Regel 

2760 

- 

58 

990 

- 

175 

Regel 

1890 - 

58 

Regel 

2770 

- 

5B 

1000 


141 

Regel 

1900 - 

58 

Regel 

2780 

- 

58 

1010 

- 

58 

Regel 

1910 - 

98 

Regel 

2790 

- 

58 

1020 

- 

5B 

Regel 

1920 - 

117 

Regel 

2800 

- 

56 

.1030 

- 

5B 

Regel 

1930 - 

252 

Regel 

2810 

- 

100 

1040 

- 

31 

Regel 

1940 - 

192 

Regel 

2820 

- 

63 

1050 

- 

38 

Regel 

1950 - 

50 

Regei 

2330 

- 

83 

1060 

- 

154 

Regel 

1960 - 

40 

Regel 

2840 

- 

101 

1070 

- 

204 

Regei 

1970 - 

58 

Regel 

2850 

- 

110 

1080 

- 

254 

Regel 

1980 - 

58 

Regei 

2860 

* 

140 

1090 

- 

130 

Regel 

1990 - 

58 

Regel 

2870 

* 

92 

1100 

- 

116 

Regel 

2000 - 

27 

Regei 

2880 

- 

101 

1110 

- 

108 

Regel 

2010 - 

196 

Regel 

2890 

- 

38 

1120 

- 

237 

Regel 

2020 - 

160 

Regei 

2900 

- 

75 

1130 

- 

238 

Regel 

2030 - 

5B 

Regel 

2910 

- 

101 

1140 

- 

187 

Regel 

2040 - 

58 

Regel 

2920 

- 

142 

1150 

- 

138 

Regei 

2050 - 

58 

Regel 

2930 

- 

227 

1160 

- 

208 

Regel 

2060 - 

199 

Regel 

2940 

- 

213 

1170 

- 

7 

Regel 

2070 - 

58 

Regei 

2950 


115 

1180 

- 

139 

Regel 

2080 - 

58 

Regel 

2960 

- 

23R 

1190 

- 

242 

Regei 

2090 - 

58 

Regel 

2970 

- 

240 

1200 

- 

128 

Regei 

2100 - 

66 

Regel 

2980 

- 

125 

1210 

- 

174 

Regei 

2110 - 

122 

Regel 

2990 

- 

224 

1220 

- 

58 

Regel 

2120 - 

142 

Regel 

3000 

- 

150 

1230 

- 

58 

Regel 

2130 - 

5B 

Regel 

3010 

- 

12 

1240 


58 

Regel 

2140 - 

58 

Regel 

3020 

- 

8 

1250 

- 

41 

Regel 

2150 - 

58 

Regei 

3030 

- 

30 

1260 


32 

Regel 

2160 - 

252 

Regel 

3040 

* 

213 

1270 

- 

36 

Regel 

2170 - 

154 

Regel 

3050 

- 

71 

1280 

- 

40 

Regel 

2180 - 

125 

Regel 

3060 


16 

1290 

- 

HI 

Regel 

2190 - 

101 

Regel 

3070 

- 

105 

1300 

- 

58 

Regel 

2200 - 

131 

Regel 

30B0 

- 

254 

1310 

- 

58 

Regel 

2210 - 

232 

Regel 

3090 

- 

93 

1320 

- 

58 

Regel 

2220 - 

213 

Regei 

3100 

* 

97 

1330 


122 

Regel 

2230 - 

78 

Totaal: 35264 
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MSX-KASBOEK 

Dit eenvoudige administratieprogramma 
houdt de inkomsten en uitgaven bij en 
maakt een totaaloverzicht per maand, per 
kwartaal (voor diegenen die per kwartaal 
de BTW moeten afdragen) en per jaar. Met 
dit jaaroverzicht kan een boekhouder 
eenvoudig de balans opmaken en de betas— 
tingaangifte verzorgen. De raeeste kleine 
zelfstandigen hebben aan dit programma 
voldoende om alle inforraatie voor de 
belasting te verzamelen. De inkomsten— en 
uitgaventabellen dienen zelf ingevoerd te 
worden en deze tabellen kunnen later 
aangevuld en gewijzigd worden. Wie zijn 
beiastingaangifte uitbesteedt kan deze 
tabellen het beste in overleg met zijn 

boekhouder opstellen. 

Het programma is menugestuurd en een 
handleiding is overbodig. Wei dienen een 
paar punten in de gaten te worden gehou- 
den: Het programma moet op een aparte 
-lege- diskette worden gezet daar, raeteen 
bij het openen van de bestanden, de hele 
schijf wordt ingedeeld in de veschillende 
files en derhalve ook meteen vrijwel vol 
is. Bij de maandafsluiting wordt de 
laatste lijst met specificaties gegeven. 
Deze lijst moet dus worden bewaard, want 
later kan deze niet raeer gedraaid worden. 
Alleen de totalen worden nog bewaard tot 
het einde van het jaar. Er zijn 24 

rubrieken voor inkomsten en uitgaven. Deze 
hoeven niet raeteen geheel gevuld te 
worden; later kunnen altijd nieuwe 
rubrieken worden toegevoegd. Wijzigen kan 
ook, maar dan gaan de bedragen uit de oude 
rubriek wel over naar de nieuwe. I.v.m. de 
op handen zijnde BTW wijzigingen zijn de 
BTW percentages ook variabel en kunnen 
zelf veranderd worden. De kwartaal- 
afsluiting gebeurt automatisch aan de hand 
van de datum en hetzelfde geldt ook voor 
de jaarafslutting. 

.Bij de gegevensinvoer vinden allerlei 
controles plaats zodat ernstige fouten 
niet kunnen optreden. Met de ESC-toets kan 
overal (ook midden in een zin) terug 
worden gegaan naar het menu. Elke invoer 
wordt afgesloten met de vraag "akkoord? 
J/N^ zodat, bij fouten, door 'N' op te 
geven de invoer over kan worden gedaan. 

Het programma is alleen geschikt voor 64K 
machines met een 80 track diskdrive en een 
printer. 

Succes! 


1 

2 

3 

4 

5 

6 


HSX KASBOEK AJ>M INISTRAT IE 
<E>i9S6 3>e HSX GIDS 


V 1.2 



| ESC = TERUG NAAR HEMU 


= INKOMSTEN INVOEREN 
= UITGAVEN INVOEREN 
= I>A6LIJST 


= MAANX^KWARTAAL^JAARAFSLUITING 


= NIJZI6EN TABELLEN 
= EINDE PROSRttMHA 


ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 36 


10 COLOR1,15,15:SCREEN0:KEYOEF:WIDTH 
40 

20 CLLAR3000:MAXFILES=1 
30 DEFINT A-Z;DEFDBL B 


35 DEFUSR0=&H156 

40 ON STOP GOSUB 30000:STOP ON 

50 GOTO 20000 

98 * 

99 11 MENU 

100 GOSUB12000 

110 IF T4=0 THEN5005 
150 LOCATE0 ,6 

160 PRINT ' 1 1 = INKOMSTEN INVOEREN" 
170 PRINT:PRINT" 2 = UITGAVEN INVOER 
EN" 

1B0 PRINT:PRINT" 3 - DAGLIJST" 

190 PRINT:PRINT" 4 - MAAND/KWARTAAL/ 


JAARAFSLUITING" 

200 PRINT:PRINT" 5 = WIJZIGEN TABELL 
EN" 

210 PRINT:PRINT" 6 = EINDE PROGRAMMA 


250 L0CATE2,22:PRINT"WELK NUMMER?: " 

■ 

255 GOSUB11000:X=VAL<X$) 

260 IFX<10RX>6THEN250 

300 DNXGOTO1000,2000,3000,4000,5000, 
6000 

310 GOTO100 

398 ? 

399 *AKKOORD? 

400 LOCATE 0, 22 :PRINT"AKKOORD? J/N:" 


410 GOSUB 11000 

420 IF X$< >"J"ANDX$< >"N"ANDX$< >"j"AN 
DX$<>"n"THEN400 
430 RETURN 


499 ’BESTAND VOL 

500 CLS:FORI=1TD40:BEEP:PRINT"BESTAN 
D VOL!":NEXT:GOTO100 


548 * 

549 "BTW FOUT 

550 FOR1=1TO20:BEEP:LOCATE0, 22 :PRINT 
"BTW FOUT!!!":NEXT:RETURN 

598 ’ 

599 =*RECORD INLEZEN 


600 RFT#1 N 

610 FORI = 1T04:X$ < I)=N$ <I):NEXT 

630 BR=VAL (N% (5) ) : BT7.=VAL (N$ (6) ) s X* ( 

7)=N$(7):RETURN 

698 =* 

699 s RECORD WEGSCHRIJVEN 

700 FOR 1=1 TO 4:LSET N*(I)=X*(I):NE 
XT 

720 LSET N$(5)=5TR9(BR):LSET N$<6)=S 
TR^ (BT*/.) :LSET N$<7)=X$<7) 

730 PUT#1,N:RETURN 

798 11 

799 ’NETTO / BTW BEREKENEN 

800 IF BT‘/.=0 THEN BN=BR: BT=0: RETURN 
810 X=BT7.+ 100: BN=BR# 100/ X 

830 BT=(BR/X)*BT% 

840 BN=3NT<BN*100+.5)/100 
850 BT = INT(BT 1 100+■5)/100 
860 RETURN 

898 *' 

899 ”GEEN RECORD IN BESTAND 

900 F DRI = 1TO20:L OCATE0,22:BEEP 

910 PR3NT"GEEN RECORD IN HET BESTAND 

t i » 

920 NEXT:GOTO100 

nnn y 
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999 * INKOMSTEN INVOEREN 

1000 BOSUB31000 : Q—0 

1005 IF REC>=4500 THEN 500:REM****** 
**** EVT.WIJZIGEN 
1010 LOCATE 0,22:NR=2 
1020 PRINT"WELK NUMMER?: 

1030 GOSUB 10000:X=VAL(X*) 

1040 IF X<1ORX >24THEN1010 
1050 X$ (2)“RIGHTS(" "+X$,2) 

1055 X$(3)=STR$(T4) 

1070 GOBUB12000:X$(1)='T" 

1080 GOBLIB12100 

1090 GOSUB12300 

1100 LOCATES,10:PRINTN+1 

1110 LOCATES,11:PRINT X$(2>;" ";TI$( 

VAL(X$(2))) 

1115 LOCATES,12:PRINT X$(3> 

1120 FORI=4TQ7sNR=L<I):LOCATE 8,1+9: 
GOSUB10000:X$ <I)=X$:NEXT 
1170 BR-VAL. < X$(5) > : BT'/1=VAL (X$ < 6) ) 
1172 IF BT7.0T1 AND BT7.< >T2 AND BT7.< 
>T3 THEN GOSUB 550:GOTO 1260 

1175 GOSUB 800 

1176 LOCATE 8,14 

1177 PRINT USING"######.##-"s BR; 

1178 PRINT USING" NETTO•######.##”"; 
BN 

1179 LOCATE 8,15 

1180 PRINT USING"##" ; BT7.; : PRINT"’/. 

>• ■ 

1181 PRINT USING" BTW:######.## 

— " ; BT 

1190 GOSUB400 

1200 IF X$="N"ORX$= ,, n ,, THEN 1260 

1210 IF X$< >"J"ANDX$< >"j"THEN1190 

1220 N=N+1:REC=REC+1 

1250 GOSUB 700 

1260 IF Q=1 THEN 2000 

1270 GOTO 1000 

1998 ’ 

1999 * UITGAVEN INVOEREN 

2000 GOSUB 32000:0=1 

2005 IF RE0=4500 THEN 500:REM****** 

#*** EVT.WIJZIGEN 

2010 LOCATE 0,22:NR=2 

2020 PRINT"WELK NUMMER?: "; 

2030 GOSUB 10000:X=VAL(X*) 

2040 IF X<1 OR X >24 THEN2010 
2050 X$(2)=RIGHT*(" "+X*,2> 

2055 X*(3>=5TR$(T4> 

2070 GOSUB 12000:X$(1)="U” 

2080 GOSUB 12200 

2090 GOSUB 12300 

2100 LOCATE 8,10:PRINT N+I 

2110 LOCATE B, 11-.PRINT X$<2>;" "; TU* 

(VAL(X$ <2))) 

2115 LOCATE B,12:PRINT X*<3> 

2120 GOTO 1120 

2998 ? 

2999 ? DAGLIJST 

3000 Q=0:GOSUB 12000:IF REC=0 THEN 9 
00 

3001 LOCATE0,5 

3002 PRINT" r --- " 

3003 PRINT" DAGLIJST " 

3004 PRINT" l-1" 

3005 FOR 1=1 TO 24 

3006 F0RJ=1T04:BI(I,J)=0:BU(I,J)=0:N 
EXT J 

3008 NEXT I 

3009 FOR 1=1 TO 4:BT(I)=0:NEXT 

3010 LOCATE0,10:PRINT"ZET DE PRINTER 
KLAAR" 

3020 LOCATE0,12:PRINT"EN DRUK EEN TO 
ETS. "; 

3030 GOSUB 11000 
3035 ? 


3036 * PRINTER INSTELLIN 6 

3040 ? LPRINT CHR$(27)"E":REM******** 

**12 PITCH VODR PHILIPS 

3050 LPRINT CHR$<27)"M":REM********* 
*12 PITCH VOOR TREND PRINTER 

3051 ' 

3052 7 

3055 LOCATE0, 10: PRINT"ZdI ang de disk 
drive werkt of deze" 

3056 PRINT"tekst 1eesbaar is het pro 
gramma NIET" 

3057 PRINT”ONDERBREKEN!!!i- rusti 

g wachten" 

3058 PRINT"tot de tekst "EINDE" vers 
chijnt" 

3060 LOCATE 0, 22 :PRINT"EVEN GEDULD A 
.U,B." 

3070 LPRINT"INKOMSTEN MAAND: ";STR$< 
T4);" JAARs 19";5TR$(T5) 

3080 LF'R I NT s LPRI NT " REC. DAG TABEL" ; S 
PC (15) 

3090 LPRINT"BRUTO NETTO BTW 1 

97 BTW 57. Omschri jving" 

3100 LPRINT 
3110 FOR J=1 TO 24 
3120 FOR N=1 TO REC 
3130 GOSUB 600 

3140 IF (1)<>"I" OR VAL(X*(2))<>J 

THEN 3290 

3150 GOSUB 800 

3160 LPRINT USING"####";N; 

3170 LPRINT" ,, ;XS(4);" ";TI*(J); 

3180 LPRINT TAB(25):LPRINT USING"### 
###.##-";BR; 

3190 LPRINT TAB(35):LPRINT USING"### 
### m ##—"•BN; 

3200 IF BT7.= 19 THEN LPRINT TAB(45);: 
LPRINT USING"######.##-";BT; 

3210 IF BT7.=5 THEN LPRINT TAB(55);:L 
PRINT USING"######.##-";BT; 

3220 LPRINT TAB(65)sLPRINT X$(7) 

3250 BI(J, 1 )I(J,1)+BR 

3260 BI(J, 2 )=BI(J,2)+BN 

3270 IF BT7.= 19 THEN BI (J , 3) =BI (J , 3) + 

BT 

3280 IF BT7.=5 THEN BI (J , 4) =BI (J „ 4) +B 
T 

3290 NEXT N:IF BI(J,1>=0 THEN 3360 
3295 LPRINT TAB(15):LPRINT”TOTAAL"; 
3300 LPRINT TAB(25):LPRINT USING"### 

M±fc— ” «RT(J 1 ) « 

3310 LPRINT TAB(35):LPRINT USING"### 

(,1 ?) ■ 

3320 LPRINT TAB(45):LPRINT USING"### 
###.##~":BI<J,3): 

3330 LPRINT TAB(55):LPRINT USING"### 
###.##”";BI(J,4); 

3340 FOR 1=1 TO 4:BT(I)=BT(I)+BI(J,I 
):NEXT 

3350 LPRINT:LPRINT 
3360 NEXT J 

3370 LPRINT:LPRINT"TOTAAL INKOMSTEN" 

■ 

3372 LPRINT TAB(25):LPRINT USING"### 
###.##"";BT <1)s 

3374 LPRINT TAB(35):LPRINT USING"### 
###.##-";BT( 2 ); 

3376 LPRINT TAB(45):LPRINT USING"### 

" • rt < ^ j « 

3378 LPRINT TAB(55):LPRINT USING"### 
###,##-";BT(4); 

3500 51 

3510 ’UIT 6 AVEN 

3560 LPRINT:LPRINT:LPRINT 

3565 FOR 1=1 TO 4 :BT(I)=0:NEXT 

3570 LPRINT"UITGAVEN MAAND: "sSTR«( 

T4)s" JAAR: 19";STR^(T5) 


DAGLIJST 
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3580 LPRINT:LPRINT"REC. DAG TABEL";S 
PC(15): 

3590 LPRINT"BRUTO NETTO BTW 1 

97. BTW 57. Omschri jvi ng" 

3600 LPRINT 
3610 FOR 3=1 TO 24 
3620 FOR N=1 TO REC 
3630 GOSUB 600 

3640 IF X$ <1)< > H U" OR VAL(X$(2))<>3 


THEN 3790 
3650 GOSUB 800 
3660 LPRINT USINS"####";N; 

3670 LPRINT" ";X$<4>;" ":TU*<3); 

3680 LPRINT TAB(25):LPRINT USING"### 


###.##—"•BR* 

3690 LPRINT TAB(35):LPRINT USING"### 
###.##-";BN; 

3700 IF BT7.= 19 THEN LPRINT TAB(45);: 
LPRINT USING"######.##-";BT; 

3710 IF BT7.=5 THEN LPRINT TAB(55);:L 
PRINT USING"######.##-";BT; 

3720 LPRINT TAB(65):LPRINT X*(7) 


3750 BU < 3,1> =BU(3,1)+BR 

3760 BU(3,2)=BU(3,2)+BN 

3770 IF BT7.= 19 THEN BU (3,3) =BU (3,3) + 

BT 


3780 IF BT7.=5 THEN BU (3,4) =BU (3,4) +B 
T 

3790 NEXT N:IF BU(J,1)=0 THEN 3860 
3795 LPRINT TAB(15):LPRINT"TOTAAL"; 
3800 LPRINT TAB <25):LPRINT USING"### 

— " • ftl l( .1 1 ) • 

3810 LPRINT TAB(35):LPRINT USING"### 
###.##-";BU(3,2) ; 

3820 LPRINT TAB(45):LPRINT USING"### 
###.##—";BU(3,3); 

3830 LPRINT TAB(55):LPRINT USING"### 
###.##—";BU(3,4); 

3840 FOR 1=1 TO 4:BT(I)=BT(I)+BU(3,I 


):NEXT 

3850 LPRINT:LPRINT 
3860 NEXT 3 

3870 LPRINT:LPRINT"TOTAAL UITGAVEN"; 
3872 LPRINT TAB(25):LPRINT USING"### 
B ##—"* BT(1); 

3874 LPRINT TAB(35):LPRINT USING"### 
###. ##"-" : BT (2) ■ 

3876 LPRINT TAB(45):LPRINT USING"### 
##— >>a BT(3)* 

3878 LPRiNT Tftfe(55):LPRINT USING"### 
###,##-";BT(4); 

3880 LPRINT:LPRINT 
3890 IF Q=0 THEN 100 
3900 GOTO 4100 


3999 *AFSLUITING 

4000 Q=l:GOSUB 12000 
4010 LOCATE®,5 


4020 

4030 

4040 


PRINT" 
PRINT" 
PRINT" 


AFSLUITEN 


M 


H 


4050 GOTO 3005:REM DAGLI3ST 

4098 ? 

4099 ’MAANDTDTALEN WEGSCHRIJVEN 

4100 CLOSE:LPRINT 

4110 X$="A:MAAND-I"+STR$(T4) 

4120 OPEN X$ FOR OUTPUT AS#1 
4130 FOR 3=1 TO 24 

4140 F0RK=1T04:PRINT#1,BI(3,K):NEXT 

4160 NEXT:LPRINT:CLOSE 

4170 X$="A:MAAND-U"+STR$(T4) 

4180 OPEN X$ FOR OUTPUT AS#1 
4190 FOR 3=1 TO 24 

4200 FORK=1T04:PRINT#1,BU(3, K):NEXT 

4220 NEXT:LPRINT:CLOSE 

4250 IF T4 = 3 OR T4=6 OR T4=9 OR T4=l 

2 THEN 4500 

4255 GOTO 4800 

4258 *' 

4259 ’EINDE TOTALEN 

4260 T4=T4+1 

4270 OPEN"A:TABELLEN"FOR OUTPUT AS#1 
4280 F0RI=1T024:PRINT#1,TI$(I):PRINT 
#1,TU$(I):NEXT 

4320 PRINT#1,T1:PRINT#1,T2:PRINT#1,T 
3:PRINT #1,T 4:PRINT #1,T5 
4330 CLOSE 

4340 OPEN”A:DAGFILE"AS #1 LEN=60 
4350 LSET REC$=STR$(T4) 

4360 PUT#1,4002 
4370 REC=0:GOTO 6000 

4498 

4499 > KWARTAAL 

4500 LPRINT"KWARTAAL: ";T4/3 

4510 F0RI=1T04:BT(I)=0:NEXT:LPRINT 

4520 FOR I ~J 4-2 TO T4 

4530 X*="A:MAAND-I"+5TR*<I) 

4535 OPEN X$ FOR INPUT AS#1 
4540 FOR 3=1 TO 24 

4550 FORK= 1T04: I NF'UT# 1 , BI < 3, K) : BT (K) 

=BT(K)+BI(3,K):NEXTK 

4570 NEXT 3 

4580 CLOSE:NEXT I 

4585 LPRINT "INKOMSTEN TOTALEN":LPRI 
NT 

4590 GOSUB 33000 

4650 FOR I=T4-2 TO T4 

4660 X$="A:MAAND-U"+STR$(I) 

4670 OPEN X* FOR INPUT A5#l 
4680 FOR 3=1 TO 24 
4690 FOR K=1 TO 4 

4700 INPUT#1,BU(3,K):BT(K)=BT(K)+BU( 

3,K):NEXT K 

4710 NEXT 3 

A720 CLOSE 1 NEXT I 

4730 LPRINT "UITGAVEN TOTALEN":LPRI 
NT 

4740 GOSUB 33000 

4798 ’ 

4799 * TOTALEN CUMULATIEF 

4800 LPRINT "TOTALEN MAAND 1 T/M";T 4 

4805 F0R3=1 TO 24 

4806 F0RK=1T04:BI(3,K)=0:BU<3,K)=0:N 
EX TK 

4807 NEXT3 

4810 FOR 1 = 1 TO 4:BT <I)=0:NEXT:LPRIN 
T 

4820 FOR 1=1 TO T4 

4830 X$="A:MAAND-I"+STR$(I) 

4840 OPEN X$ FOR INPUT AS#1 
4850 FOR 3=1 TO 24 
4860 FOR K=1 TO 4 

4865 INPUT#1,B:BI(3,K)=BI(3,K)+B: BT( 
K)=BT<K)+B:NEXT K 
4870 NEXT 3 
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4871 CLOSEsNEXT I 

4872 FOR 0=1 TO 24 

4873 LPRINT TI*<0); 

4874 F0RK=1TQ4:LPRINTTAB(K#10+14):LP 
RINTUSING"######, ##—"; BI <J,K> ; : NEXTK 

4875 FORK=1T04 s BI(J,K)= 0 :NEXTK 

4876 LPRINT:NEXT 0 

4877 LPRINT:LPRINT 

4880 LPRINT "INK0M5TEN TOTALEN":LPRI 
NT 

4890 GDSUB 33000 

4905 FOR 1=1 TO T4 

4910 X$="A:MAAND-U"+STR$ <I) 

4915 OPEN X$ FOR INPUT AS#1 
4920 FOR 0=1 TO 24 
4925 FOR K=1 TO 4 

4930 INPUT#!,B:BU(J,K)=BU(0 ,K)+B:BT < 
K)=BT(K)+B;NEXT K 

4935 NEXT 0 

4936 CLOSE:NEXT I 

4937 FOR 0=1 TO 24 

4938 LPRINT TU$<0>; 

4939 FORK=1T04:LPRINTTAB(K#10+14):LP 
RINTUSING"######.##-";BU < J,K) 5 :NEXTK 

4940 FORK=1T04:BU(J,K)=0:NEXTK 
494! LPRINT:NEXT 0 

4942 LPRINT:LPRINT 

4945 LPRINT "UITGAVEN TOTALEN":LPRI 
NT 

4950 GDSUB 33000 

4980 IF T4=12 THEN T4=0:T5=0:GOTO 42 
70 

4990 GOTO 4260 

4998 r 

4999 ’WIJZIGEN TABELLEN 

5000 RSET REC$=STR$(REC) 

5002 PUT# 1,4501: REM**********EVT.. WIO 
ZIGEN 

5004 CLOSE 

5005 GOSUB 12000:NR=2 

5010 LOCATE1,7:PRINT"TABELLEN WIJZIG 
EN" 

5020 LOCATE1,9:PRINT"RETURN = GEEN W 
IOZIGING" 

5030 LOCATE1,11 

5040 PRINT"BTW 1 =";T1;" 7.";SPC<6) 
5045 LOCATE1,13s PRINT"BTW 2=";T2;" 
7.";SPC(6> 

5050 LOCATE1,15:PRINT"BTW 3 =";T3;" 
7.";SPC<6) 

5060 GOSUB400 

5090 IF X-$< >"J"AND X$K >"j"THEN5100 
5095 GOTO5200 

5099 =* 

5100 LOCATE 15,11:GOSUB 10000 
5110 IF X$=""THEN 5130 

5120 X=VAL(X*):T1=X 

5130 LOCATE 15,13:G0SUB 10000 

5140 IF X$=""THEN 5160 

5150 X=VAL ( X$) : T2=X 

5160 LOCATE 15,15:G0SUB 10000 

5170 IF X$=""THEN 5030 

5180 X=VAL( X $) :T3=X 

5190 GOTO 5030 

5199 ’ 

5200 GOSUB 31000:NR=15 

5210 LOCATE 0,5:PRINT"RETURN = GEEN 
WIOZIGING" 

5220 FDR 1=1 TO 12 

5230 LOCATE 4,1+7 

5240 GOSUB 10000 

5250 IF X$< >""THEN TI*<I)=X$ 

5260 NEXT 

5270 FOR 1=13 TO 24 

5280 LOCATE 24,1-5 

5290 GOSUB 10000 

5300 IF X*<>""THEN TI*<I)=X* 

5310 NEXT 


5320 GOSUB400 

5350 IF X$<>" 0 " AND X$< >*’ j "THEN 5200 

5399 ? 

5400 GOSUB 32000:NR=15 

5410 LOCATE 0,5:PRINT"RETURN = GEEN 
WIJZIGING" 

5420 FOR 1=1 TO 12 

5430 LOCATE 4,1+7 

5440 GOSUB 10000 

5450 IF X$< >""THEN TU$<I)=X$ 

5460 NEXT 

5470 FOR 1=13 TO 24 
5480 LOCATE 24,1-5 
5490 GOSUB 10000 

5499 •' 

5500 IF X$< >""THEN TU$(I)=X$ 

5510 NEXT 

5520 GOSUB 400 

5550 IF X$<>"J" AND X$<>"j"THEN 5400 

5=500 ^ 

5600 NR=2 

5610 IF T4>0 THEN GOTO 5750 

5620 GOSUB 12000 

5630 LOCATE 0,10 

5640 PR I NT" START MAAND: "s 

5650 GOSUB 10000 

5660 X=VAL(X$> 

5670 IF X<1 OR X >12 THEN BEEP:GOTO 5 
630 

5680 T4=X 

5681 LOCATE 0,12 

5682 PRINT"START JAAR 19"; 

5683 GOSUB 10000:X=VAL<X$> 

5684 IF X <86 THEN BEEP:GOTO 5681 

5685 T5=X 
5690 GOSUB400 

5720 IF X$< >"J"AND X$<>"j" THEN 5630 

5750 LOCATE 0,22 

5760 PRINT"MOMENT A.U.B." 

5770 GOTO 21190 

5998 ? 

5999 r EINDE 

6000 STOP OFF 

6005 CLS:RSET REC$=STR*(REC) 

6010 PUT#1,4501s REN****##**** EVT.WI 
JZIGEN 

6020 CLOSE:COLOR15,4,4 

6025 BEEP:PRINT"MAAK REGELMATIG EEN 

BACK-UP KOPIE!":PRINT:BEEP 

6030 BEEP:PRINT"EINDE."s BEEP:END 

899B ’ 

9999 ? INV0ERR0UTINE5 

10000 X=USR0(0):LOCATE,,1 

10005 A*=CHR*( 8 >+" ”+CHR*( 8 )sX*="" 

10010 W^=INKEYS 

10040 IFW$=""THEN10010 

10060 IFW$=CHR$(27 > THEN RETURN 100 

102B0 IF W$>CHR$<31)AND W*<CHR^(123) 

THEN 10350 

10290 IF W$< >CHR$(B)THEN 10330 
10300 IF X*="" THEN BEEP:GOTO 10010 
10310 IF LEN < X$)=1 THEN X*="":PRINT 
A$;:GOTO 10010 

10320 X$=LEFT$(X$,LEN(X$)-1):PRINT A 
i GOTO 10010 

10330 IF W*=CHR$<13) THEN LOCATE,,0: 
RETURN 

10340 BEEP:GOTO 10010 

10350 IF LEN(X$)=NR THEN BEEP:GOTO10 
010 

10360 PRINT W$s:X$=X$+W$:GOTO 10010 
10500 RETURN 

10998 ? 

10999 

11000 X=USR0<0) 

11005 X^=INKEY^ 

11010 IF TIME=25 THEN LOCATE,,0 


10 


(c) Junior 99 






11020 IF TIME>30 THEN LOCATE,,1tTIME 
=0 

11030 IF X*=" H THEN 11005 
11040 IFX$=CHR$ < 27)THEN RETURN 100 
11050 LOCATE,,0:RETURN 
11060 ? 

1199B ’ 

11999 ? SCHERM 1 

12000 CLS: LOCATE0,0,0 

12010 PRINT"- 

_ *» . 

12020 PRINT"! MSX KASBOEK ADMINIBTR 

ATIE V 1.2 !"; 

12030 PRINT"! (c)1986 De MSX GIDS 
Amsterdam !"; 

12040 PRINT"- 

_ *► • 

12050 PRINT" ' i ESC = T 

ERUG NAAR MENU !"; 

12060 PRINT" * - 


12090 RETURN 

12098 =* 

12099 *SCHERM 2 


12100 

12110 

12120 

12130 

12150 

12198 

12199 

12200 
12210 
12220 
12230 
12250 


LOCATE 0,5 
PRINT" 
PRINT" 
PRINT" 
RETURN 



’ SCHERM 3 
LOCATE 0,5 
PRINT" 
PRINT" 
PRINT" 
RETURN 


UITGAVEN 


II 


II 


II 


12298 * 

12299 " SCHERM 4 

12300 LOCATE 0,10 
12310 PRINT"REC.NR 
12320 PRINT" CODE 
12330 PRINT" MAAND 
12340 PRINT" DAG 
12350 PRINT" BRUTO 
12360 PRINT"BTW "/. 
12370 PRINT"OMSCHR 


II 


H 



12380 RETURN 

19998 ’ 

19999 ■' INITIALISATIE 

20000 GOSUB 12000:DIM BI<24,4),BU<24 
, 4) 

20010 L0CATE2,22:PRINT"MOMENT A.U.B. 


20050 DIM TI$<24),TU$<24> 

21000 OPEN"A:DAGFILE"AS#1 LEN=60 
21010 FIELD#1,1 ASN$(1),2ASN*<2>,2ASN 
*<3>,2A5N$<4>,15ASN*<5),6ASN*(6),30A 
SN$<7) 

21020 FIELD#1,5AS REC$ 

21021 ' 

21022 9 VELDEN BINNEN 1$ EN U* 

21023 ? 1=C0DE "I" OF "U" 

21024 ? 2-CODE NR INK.UITG.TABEL 

21025 ? 3=MAAND 

21026 ’4=DAG 

21027 ? 5=BRUT0 

21028 11 6=BTW7. 

21029 ’7=QMSCHRIJ VING 

21030 •' 

21031 =* 

21035 L(1)=2:L(2)=2;L(3)=2:L <4> =2:L( 
5) =®9: L (6) =2: L (7) =30 

21040 PUT#1,4503:REM********** EVT.W 
IJ ZIGEN 

21105 GET#1,4502:REM*******#*# EVT.W 
IJZIGEN 


21106 T4=VAL(REC$> 

21125 IF T4O0THEN CLOSE: GOTO 21900 
21130 ’ 

21140 ? FILES AANMAKEN 

21145 REC= 0 :RSET REC*=STR$<REC> 

21146 PUT#1,4501:REM***#*#**** EVT. 
WIJZIGEN 

21150 CLOSE:T1=0:T2=5:T3-19:REM BTW 
21153 X*( 1 )="":REM "I"=INK. "U"=UITG 

21155 T4=0:REM START MAAND 

21156 T5=0:REM START JAAR 
21160 FOR 1=1 TO 24 

21165 X$=STRING$ <15,95) 

21166 TI$(I)=X$:TU$<I) =X% 

21168 NEXT 

21170 FOR 1=1 TO 12:X$="A:MAAND-I"+S 
TR%( 1 ) 

21171 OPEN X$ FOR OUTPUT AS#1 

21172 FOR 3=1 TO 24 

21173 FOR K=1 TO 4 

21174 PRINT#1,BI<J,K) 

21175 NEXT:NEXT 

21176 LOCATE 15,22:PRINT I:BEEP 

21177 CLOSE:NEXT I 

21180 FOR 1=1 TO 12:X$="A:MAAND-U"+S 
TR*(I) 

21181 OPEN X$ FOR OUTPUT AS#1 

21182 FOR J=1 TO 24 

21183 FOR K=1 TO 4 

21184 PRINT#!,BU(J,K) 

21185 NEXT:NEXT 

21186 LOCATE 15,22:PRINT I:BEEP 

21187 CLOSE:NEXT I 

21190 OPEN"A:TABELLEN"FDR OUTPUT AS# 
1 

21200 FOR 1=1 TO 24 

21210 PRINT# 1 ,TI$ <I) 

21211 PRINT#1,TU$(I) 

21213 NEXT 

21215 PRINT#1,T1:PRINT#1,T2:PRINT#1, 
T3:PRINT# 1 ,T4:PRINT#1,T5 
21220 CLOSE:IF T4=0 THEN GOTO 5005 
21230 ’ 

21240 ? 

21900 OPEN"A:TABELLEN"FOR INPUT AS #1 
22000 FOR 1=1 TO 24 
22010 INPUT#1,TI*(I) 

22020 INPUT#1,TU$(I) 

22030 NEXT 

22040 INPUT#1,T 1 :INPUT#1,T 2 :INPUT# 1 , 
T3:INPUT# 1 ,T4:INPUT#1,T5 
22100 CLOSE 

22200 OPEN"A:DAGFILE"AS#1 LEN=60 
22210 GET#1,4501;REM********** EVT.W 
IJZIGEN 

22220 N=VAL(REC^):REC=VAL < REC$) 

22221 =* 

22230 LSET REC$=STR^(T 4 ) 

22240 PUT#1,4502:REM*#******## EVT.W 
IJZIGEN 

23000 GOTO 100 


29999 * STOPROUTINE 

30000 PLAY"V15CB" 

30010 RETURN 

3099g ^ 

30999 9 INKOMSTEN TABEL * 

31000 CLS:LOCATE0,0,0 

31005 PRINT" 

31010 PRINT" 

31020 PRINT" 

31030 LOCATE 0,8 
31040 FOR 1=1 TO 12 

31045 PRINT RIGHT*<STR*<I),2);"= ";T 
1$(I):NEXT 
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31060 FOR 1=13 TO 24:LOCATE 20,1- 
31075 PRINT RIGHT$(STR$<I),2); 
I$<I> : NEXT 
31100 RETURN 

31998 •“ 

31999 

32000 

32005 
32010 
32020 

32030 
32040 
32045 
U*<I) 

32060 
32075 
U$<I) 

32100 
32998 


») 


? UITGAVEN TABEL 
CLS:LOCATE0,0,0 

PRINT" 

PRINT" 

PRINT" 

LOCATE 
FOR 1=1 



N 


It 


II 


II 


0,8 

TO 12 

PRINT RIGHT$ < STR$ <I ),2 > 5 " = 

NEXT 

FOR 1=13 TO 24:LOCATE 20,1-5 
PRINT RIGHT*<STR*<I),2);"= ";T 
NEXT 
RETURN 


"BUBR. 

33000 LPRINT USING"BRUTO: #######.## 

— 5 BT <l) 

33010 LPRINT USING"NETTO: #######.## 

— " ; BT<2> 

33020 LPRINT UBING"BTW19: #######.## 

— "5 BT <3) 

33030 LPRINT USING"BTW 5: #######.## 
;BT(4) 

33040 LPRINT:LPRINT 
33050 BX=BT(3)/19*119 

33060 LPRINT USING"BRUTO BEDRAG 197,: 
#######.##-" 5 BX; 

33070 LPRINT USING"NETTO BEDRAG 19’/.: 

#######.##-" - BX-BT (3) 

33080 BY=BT<4>/5*105 
33090 LPRINT USING"BRUTO 
#######,##-";BY; 

33100 LPRINT USING"NETTO 
#######.##-";BY-BT(4) 

33110 BZ=BX+BY:BZ=BT(1)-BZ 
33120 LPRINT USING"BRUTO BEDRAG 
#######.##-";BZ 5 
33130 LPRINT USING"NETTO BEDRAG 
#######.##-" 5 BZ 

33150 FOR 1=1 TO 4:BT<I)=0:LPRINT:NE 
XT 

33160 RETURN 


BEDRAG 


7 .: 


57,: 


07.: 


07. 



C0NTRQLETELLIN6 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 


10 

— 

117 

20 

- 

4B 

30 

— 

163 

35 

- 

215 

40 

- 

68 

50 

- 

37 

98 

— 

58 

99 

- 

58 

100 

- 

169 

110 

- 

219 

150 

— 

44 

160 

- 

225 

170 

- 

88 

180 

- 

194 

190 

- 

155 

200 

- 

64 

210 

- 

158 

250 

* 

70 

255 

- 

158 

260 

- 

27 

300 

- 

252 

310 

- 

251 

398 

- 

58 

399 

- 

58 

400 

- 

15 

410 

- 

221 

420 

- 

238 

430 

- 

142 

49B 

- 

58 

499 

- 

58 

500 

- 

227 

548 

- 

58 

549 

- 

58 

550 

- 

120 

598 

- 

58 

599 

- 

58 

600 

- 

97 

610 

- 

194 

630 

- 

147 

698 

- 

58 

699 

- 

58 

700 

- 

250 

720 

- 

81 

730 

- 

42 

798 

- 

58 

799 

- 

58 

800 

- 

43 

810 

- 

101 

830 

— 

100 

840 

* 

79 

850 

* 

91 

860 

- 

142 

898 

- 

58 

899 

- 

58 

900 

- 

54 

910 

- 

238 

920 

— 

184 

998 

- 

58 

999 

- 

58 

1000 

- 

183 

1005 

- 

122 

1010 

- 

54 

1020 


208 

1030 

- 

211 

1040 

- 

38 

1050 

- 

177 

1055 

- 

59 

1070 

- 

62 

1080 

- 

14 

1090 

- 

215 

1100 

- 

82 

1110 

- 

178 

1115 

* 

4 

1120 

- 

190 

1170 

- 

246 

1172 

- 

82 

1175 

- 

222 

1176 

- 

90 

1177 

- 

86 

1178 

- 

251 

1179 

- 

91 

1180 

- 

63 

1181 

- 

4 

1190 

- 

44 

1200 

- 

180 

1210 

- 

35 

1220 

- 

110 

1250 

- 

121 

1260 

- 

252 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1270 

- 

162 

199B 

- 

58 

1999 


58 

2000 

- 

196 

2005 

* 

122 

2010 

- 

54 

2020 

- 

208 

2030 

- 

211 

2040 

- 

146 

2050 

- 

177 

2055 

* 

59 

2070 

- 

106 

2060 

- 

146 

2090 

- 

247 

2100 

- 

146 

2110 

— 

222 

2115 

- 

36 

2120 

- 

27 

2998 

- 

58 

2999 

— 

58 

3000 

- 

194 

3001 

- 

43 

3002 

- 

248 

3003 

- 

21 

3004 

- 

252 

3005 

- 

44 

3006 

- 

152 

3008 

- 

236 

3009 

- 

65 

3010 

- 

168 

3020 

- 

148 

3030 


221 

3035 

- 

5B 

3036 

- 

58 

3040 
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Regel: 3660 - 53 
Regel: 3670 - 155 
Regel: 3680 - 133 
Regel: 3690 - 139 
Regel: 3700 - 103 
Regel: 3710 - 101 
Regel: 3720 - 237 
Regel: 3750 - 84 
Regel: 3760 - 82 
Regel: 3770 - 235 
Regel: 3780 - 225 
Regel: 3790 - 145 
Regel: 3795 - 250 
Regel: 3800 - 97 
Regel: 3810 - 108 
Regel: 3820 - 119 
Regel: 3830 - 130 
Regel: 3840 > 248 
Regel: 3B50 - 116 
Regel: 3860 - 237 
Regel: 3870 - 59 
Regel: 3872 - 234 
Regel: 3874 - 245 
Regel: 3876 * 0 
Regel: 3878 - 11 
Regel: 3880 - 116 
Regel: 3890 - 136 
Regel: 3900 - 203 
Regel: 3998 - 58 
Regel: 3999 - 58 
Regel: 4000 - 85 
Regel: 4010 - 43 
Regel: 4020 - 80 
Regel: 4030 - 110 
Regel: 4040 - 84 
Regel: 4050 - 185 
Regel: 409B - 58 
Regel: 4099 - 58 
Regel: 4100 - 139 
Regel: 4110 - 93 
Regel: 4120 - 70 
Regel: 4130 - 45 
Regel: 4140 - 66 
Regel: 4160 - 72 
Regel: 4170 - 105 
Regel: 4180 - 70 
Regel: 4190 - 45 
Regel: 4200 - 78 
Regel: 4220 - 72 
Regel: 4250 - 89 
Regel: 4255 - 137 
Regel: 4258 - 58 
Regel: 4259 - 58 
Regel: 4260 - 2 
Regel: 4270 - 144 
Regel: 4280 - 163 
Regel: 4320 69 
Regel: 4330 - 180 
Regel: 4340 - 15 
Regel: 4350 - 48 
Regel: 4360 - 225 
Regel: 4370 - 82 
Regel: 4498 - 58 
Regel: 4499 - 58 
Regel: 4500 - 93 
Regel; 4510 - 184 
Regel: 4520 - 8 
Regel: 4530 ~ 30 
Regel: 4535 - 124 
Regel: 4540 - 45 
Regel: 4550 - 156 
Regel: 4570 - 237 
Regel: 4580 - 218 
Regel: 4585 ~ 199 
Regel: 4590 - 35 
Regel: 4650 - 8 
Regel: 4660 - 42 
Regel: 4670 - 124 
Regel: 4680 - 45 
Regel: 4690 - 28 
Regel: 4700 - 222 
Regel: 4710 - 237 
Regel: 4720 - 218 
Regel: 4730 - 146 
Regel: 4740 - 35 
Regel: 4798 - 58 
Regel: 4799 - 5B 
Regel: 4800 - 157 
Regel: 4805 - 13 
Regel: 4806 - 126 

(c) Junior 99 

































Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regei 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regei 

Regel 

Regei 

Regel 

Regei 

Regei 

Regel 

Regei 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regei 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 


4807 - 
4810 - 
4B20 - 
4830 - 
4B40 - 
4850 - 
4860 - 
4865 - 

4870 - 

4871 - 

4872 - 

4873 - 

4874 - 

4875 - 
4B76 - 
4877 - 
4880 - 
4890 - 
4905 - 
4910 - 
4915 - 
4920 - 
4925 - 
4930 - 

4935 - 

4936 - 

4937 - 

4938 - 

4939 - 

4940 - 

4941 - 

4942 - 
4945 - 
4950 - 
4980 - 
4990 - 

4998 - 

4999 - 

5000 - 
5002 - 

5004 - 

5005 - 
5010 - 
5020 - 
5030 - 
5040 - 
5045 - 
5050 - 
5060 - 
5090 - 
5095 - 

5099 - 

5100 - 
5110 - 
5120 - 
5130 - 
5140 - 
5150 * 
5160 - 
5170 - 
5180 - 
5190 - 

5199 - 

5200 - 
5210 - 
5220 - 
5230 - 
5240 - 
5250 - 
5260 * 
5270 - 
5280 - 
5290 - 
5300 - 
5310 - 
5320 - 
5350 - 

5399 - 

5400 - 
5410 - 
5420 - 
5430 - 
5440 - 
5450 
5460 
5470 
5480 
5490 

5499 

5500 


205 
24 

141 
30 
124 
45 
28 
166 
237 
218 
45 
84 

137 
155 
196 
116 
199 

35 
141 
42 
124 
45 
28 
190 
237 
218 
45 
96 
149 
167 
196 
116 
146 
35 
81 
107 
58 
58 
131 
16 
1 BO 
165 
11 
141 
48 
78 
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192 
44 
152 
251 
58 
136 
128 

173 

138 
158 
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- 140 

- 27 

- 175 

- 112 
■ 58 

- 51 

- 168 

- 32 

- 139 

- 242 

- 9 

- 131 

- 54 

- 156 

- 242 

- 9 

- 131 

- 44 

- 61 

- 58 

- 31 

- 148 

- 32 

- 139 

- 242 

- 21 

- 131 

- 54 

- 156 

- 242 

- 58 

- 21 


Regei 
Regel 
Regel 
Regel 
Regei 
Regel 
Regel 
Regel 
Regel 
Regei 
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Regel 
Regel 
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Regel 
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Regei 
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Regel 
Regel 
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Regei 
Regel 
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Regel 
Regel 
Regel 
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Regel 
Regei 
Regel 
Regei 
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5510 

5520 

5550 

5599 

5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 

5680 

5681 
56B2 

5683 

5684 

5685 
5690 
5720 
5750 
5760 
5770 

5998 

5999 

6000 
6005 
6010 
6020 
6025 
6030 

9998 

9999 
0000 
0005 
0010 
0040 
0060 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0500 
0998 
0999 
1000 
1005 
1010 
1020 
1030 
1040 
1050 


8 
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2130 
2150 

2198 

2199 

2200 
2210 
2220 
2230 
2250 

2298 

2299 

2300 
2310 
2320 
2330 
2340 
2350 


131 
76 
6 

58 

162 

143 
201 

78 

121 

242 

167 

123 

207 
80 

102 

211 

106 

208 
44 

236 

90 

39 

207 

58 

58 

155 

92 

16 

75 

99 

207 

5B 

58 

19 

129 

86 

98 

31 
183 

141 
102 

144 
3 

58 

242 

132 
38 

142 
58 
58 

151 

87 

232 

242 

169 

32 
9 

18 


58 

60 

211 

203 

80 

202 

84 

84 

142 

58 

58 

75 

80 

123 

84 

142 

58 

58 

75 

248 

38 

252 

142 

58 

58 

78 

215 

138 

ISO 

25 

50 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 
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Rege 
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Rege 
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Rege 

Rege 

Rege 
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Rege 
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Rege 
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Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


12360 

12370 

12380 

19998 

19999 

20000 
20010 
20050 
21000 
21010 
21020 
21021 
21022 

21023 

21024 

21025 

21026 

21027 

21028 

21029 

21030 

21031 
21035 
21040 

21105 

21106 
21125 
21130 
21140 

21145 

21146 
21150 
21153 

21155 

21156 
21160 

21165 

21166 
2116B 

21170 

21171 

21172 

21173 

21174 

21175 

21176 

21177 
21180 
21181 
21182 

21183 

21184 

21185 

21186 
21187 
21190 
21200 
21210 
21211 
21213 
21215 
21220 
21230 
21240 
21900 
22000 
22010 
22020 
22030 
22040 
22100 
22200 
22210 
22220 
22221 
22230 
22240 
23000 

29998 

29999 

30000 
30010 

30998 

30999 

31000 
31005 
31010 
31020 
31030 
31040 


63 
29 

142 
58 
58 
105 
157 

80 

15 
187 
218 

58 
58 
58 
58 
58 
58 
58 
58 
58 
58 
58 
105 
18 

16 
89 

162 
58 
58 
151 
16 
68 

76 

194 

195 

44 
87 

210 

131 
120 
70 

45 
28 

143 

64 
149 
218 

132 
70 
45 
28 
155 

64 

149 
218 

144 
44 

77 
89 
131 

69 
146 
58 
58 

19B 
44 

65 

77 
131 

9 

180 
15 
15 

4 

58 
48 

17 
27 
58 
58 

70 
142 

58 
58 
60 
176 
195 

150 

78 
32 


Regel;31045 - 29 
Regel:31060 - 8 
Regel:31075 - 29 
Regel:31100 - 142 
Regel:31998 - 58 
Regel:31999 - 58 
Regei:32000 - 60 
Regel:32005 - 176 
Regel:32010 - 142 
Regel:32020 - 180 
Regel:32030 - 78 
Regel:32040 - 32 
Regel:32045 - 41 
Regel:32060 - B 
Regel:32075 - 41 
Regel:32100 - 142 
Regel:32998 - 58 
Regel:32999 - 58 
Regel:33000 - 149 
Regel:33010 - 148 
Regel:33020 - 98 
Regel:33030 - 78 
Regel:33040 - 116 
Regei:33050 - 19 
Regel -.33060 - 229 
Regel:33070 - 149 
Regel:33080 - 251 
Regel:33090 - 209 
Regei:33100 - 130 
Regel:33110 - 253 
Regel:33120 - 205 
Regel:33130 - 144 
Regel:33150 - 24 
Regel:33160 - 142 
Totaal: 63663 





(c) Junior 9S 


























































































Beeldscherm: WIDTH 36 


10 ? STAR JET. DOOR ALBERT SIERSEMA 
20 ’ <c)1986 NSX Bids Amsterdam 

30 ? 

40 SCREEN3!KEYOFF:COLOR15,1,1:CLS 

50 SH s =0s T-0: Y2= 19: R=0 

60 FORST-0TO30 

70 X==RND(1) #255:Y=RND<1) #191 

80 PSET<X,Y),15s BEEP 

90 NEXTST 

100 OPEN"grp:"AS#Is COLOR 10:PSET<70, 
10):PRINT#1,"STAR":COLOR 4:PSET<70,8 
5) SPRINT#!, "J":PSET<110, 110) SPRINT#! 
,"E":PSET<150,130):PRINT#1,"T":CLOSE 
#1 

110 FORI-15TO10STEP—1 

120 PLAY"L4S301T100L64V=I;ABCDEFGEFG 
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210 FORSP-0TO2 
220 A$—"" 

230 F0RI=1T08 

240 READER s A$=AS+CHR* < VAL < " " +B$) ) s 

NEXTI:SPRITES <SP)=A$:NEXTSP 
250 SCREEN2s KL=4 
260 FORX—0TO100:NEXT 
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SC=0 
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380 PRESET<10,55)sCOLOR KL:PRINT#1," 
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390 PRESET<10,75):COLOR KL:PRINT#1," 
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TO450 
420 IF 
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430 IF 
TO 450 
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510 

PRINTTAB(2);"7 = 
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"SPRINT:PRINT 



520 

1^—INKEY$ 



530 

IFI"1"THENR—1 

GOTO 

610 

540 

IFI$="2"THENR—2 

GOTO 
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550 

IFI$="3"THENR—3 

GOTO 

610 

560 

IFI"3"THENR—3 

GOTO 

610 

570 

IFI$="4"THENR-4 

GOTO 

610 

580 

IFI$="5"THENR=5 

GOTO 

610 

590 

IFI^"6"THENR=6 

GOTO 

610 

600 

IFI $= 11 7 " THENR=7 

GOTO 

610ELSEGOTO 

520 



610 

TINE=0 



620 

SCREENS 



630 

ON R GOSUB 1250, 

1560, 

1840,1960,2 

170, 

2460,2790 



640 

GOSUB 3200 



650 

CLOSE #1 



660 

OPEN"GRP:"AS#1:COLOR 

15:PRESET(2 


0, 182) SPRINT#!, "JETS: "LV*, » 
";SC;" "sCLOSE#1 

670 ST=STICK <Q) 


SCORE 


680 PUT SPRITE0,(X,Y),15,0+QG 
690 SPRITEON 
700 ON SPRITE GOSUB930 
710 IF ST=1THENY 5S Y~2: GOTO 780 
720 IF ST-3THENX = X+2:QQ=0s GOTO 780 
730 IF ST=7THENX=X-2:GQ=1:G0T0 780 
740 IF ST=2THENY=Y-2:X=X+2:QQ=0:GOTO 
780 

750 IF ST=8THENY=Y-2:X=X-2sQQ=l:G0T0 
780 

760 IF ST~5THENY=Y+2s GOTO 780 


770 Y-Y+2 

780 IF POINT <X,Y)O1THEN890 
790 IF POINT < X +7,Y+7> < >1THEN890 
800 IFR=>3ANDR<6THENF0RP=1T06s NEXTP 
810 IFR=6THEN3560 
820 Y2=Y2+6 

830 IFR->3THEN670ELSEIFR=2THENX 2=180 
ELSEX2=200 

840 IFY2 > 170THENY2 s = 19 

850 PUT SPRITE2,<X2,Y2),3,2 

860 GOTO 670 

870 IFY2>170THENX2=INT <RND<~TINE)#23 
0)+20sY2=Y2+l 


880 GOTO 860 

890 IF POINT < X,Y)=150RP01NT(X +7,Y+7) 

=15THENT~1:SC=SC+100:GOTO 1120 

900 IF POINT < X,Y)=14ANDT=10RP0INT(X + 

7„y+7)=14ANDT~1THENSC=SC+250:GOTO 10 

¥ 

10 

910 =* 

920 ? DOOD 
930 SPRITE OFF 
940 LV—LV—1 
950 T=0 

960 IFLV<1THEN 3360 

970 PLAY"V1501T255S14L2BGEDL1C" 

980 GOTO 620 
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990 =* 

1000 11 NAAR VOLGENDE RONDE 

1010 PLAY '* L4G13 V1504T255ABCDEFGEDAEG 

+DD. " 

1020 IFR= >7THEN3640 
1030 SPRITE OFF 
1040 T=0:X-2000—TIME 
1050 IF X<100THENX=100 
1060 SC—SC+X:R=R+1 

1070 LINE <161,182) — (184,187),4,BF 
1080 SPRITE ON 
1090 GOTO 610 
1100 =* 

1110 'tankje gepakt 
1120 T-l 

1130 IFR=1THENDRAW"BM164,165A0C1XT$; 
”:PAINT(165,164),1,1 

1140 I FR ss: 2THENDRAW"BM 10, 175A0C1XT*; " 
s PAINT <11,174),1,1 

1150 IFR=3THENDRAW"bm55,94clxt$;":PA 
INT(56,93),1,1 

1160 IFR=4tHENDRAW ,, bm30,90clxt$; ”:PA 
INT<31,89),1,1 

1170 IFR=5THENDRAW"bfn 17, 107c lxt$; "s P 
AINTU8, 106) ,1,1 

1180 I FR= S 6THENDRAW " b m 110, 105cl«t*5”s 
PAINT <111,104),1,1 

1190 IFR-7THENi)RAW ,, bml05,80cl>!t*; "iP 
AINT(106,79),1,1 

1200 PLAY"L6t255V15G6CGDEFACDE+A.DEF 
CAG+G+F '* 

1210 LINE <161,190) — <194,180),4,BF 
1220 GOTO 650 
1230 ? 

1240 9 RONDE 1 

1250 X = 15s Y=120S PUT SPRITE0, <X,Y),15 

1260 CLOSE#1 

1270 COLOR ,1,1sCLS 

1280 DRAW"BM0 !,187S11A0C3E9F5E11F2E9F 
8E2F3E2F8R10F6E15F6" 

1290 LINE <0,189) — <255,191),3,BF 

1300 PAINT<30,175),3,3 

1310 CIRCLE<30,50),10,6 

1320 PAINT<30,50),6 

1330 CIRCLE<100,77),14,13 

1340 PAINT <100,77),13 

1350 DRAW”BM150,36C10XV$;" 

1360 PAINT<155,85),10,10 
1370 DRAW”BM30,150C10XV$;" 

1380 PAINT(35,149),10,10 
1390 DRAW”BM164,165C15X T$;" 

1400 PAINT<165,164),15,15 
1410 DRAW”8M220, 30XF$; 11 
1420 DRAW”C12BM165,130XMAS*" 

1430 PAINT<164,129),12,12 
1440 CIRCLE<164,120),5,5,0,3.1416:LI 
NE <158,120)“<170,120),5sDRAW”C4BM159 
,120F3BM162,120D3BM165,120D3BM168,12 
0B3” 

1450 DRAW"BM222,70C7XBO*s" 

1460 PAINT<223,69),7,7 
1470 DRAW"BM222, 130C3XBO*;’’ 

1480 PAINT<223,129),3,3 
1490 DRAW"BM190 , 25A0C10X V$;” 

1500 PAINT<192,24),10,10 
1510 DR AW " BM240, 100C4 X BO$ " 

1520 PAINT<241,99),4,4 
1530 RETURN 
1540 7 

1550 ’RONDE 2 

1560 X=15sY=10:PUT SPRITE0,<X,Y),15, 
0 

1570 CLOSE#1 

1580 COLOR ,1,1:CLS 

1590 LINE(5,90) — <120,82),4,BF 

1600 LINE<5,110)-<35,118),4,BF 

1610 CIRCLE<57,115),10,3 



1620 PAINT(57,115),3,3 

1630 LINE<85,120)-<235,128),4,BF 

1640 LINE<5,150)-<125,158),4,BF 

1650 CIRCLE<144,90),10,8 

1660 PAINT<144,90),8,8 

1670 LINE(155,165)-<255,173),4,BF 

1680 LINE<190,145)-<255,150),4,BF 

1690 DRAW"BM10,175A0C15XT*;” 

1700 PAINT<11,174),15,15 

1710 LINE <175,100) — <255,92) ,4,BF 

1720 LINE<100,50)-<255,42),4,BF 

1730 CIRCLE<80,23),10,11 

1740 PAINT <80,23),11,11 

1750 LINE<5,50)-(60,42),4,BF 

1760 DRAW"BM130,34C13A0XMA$;" 

1770 PAINT<131,35),13,13 
1780 DRAW"BM190,20C13A0XMA$;" 

1790 PAINT<191,21),13,13 
1800 DRAW'BMSSeJ^JXF*; " 

1810 RETURN 

1820 ? 

1830 -ronde 3 

1840 COLOR ,1,1:CLS:X=10:Y=70;PUT SP 
R1TE0, (X,Y),15,0 
1850 CLOSE#1 

1860 DRAW"bm5, 182s8a0c 12u30el0*f2e7f4 
r 10e 16-f 10e5f 8e5-f 5e7-f 9d 5r 5d5r 20d32I 12 


3" 

1870 PAINT<6,170),12,12 
1880 DRAW"bm5,5a0cl2nr230f 22e5d20-f le 
1 u20-f 4©2*f 7e 10* 5e 1 * 9e2f 3e7f 5e2f 4e7r 2-f 
5d 6f 1 e 1 u6r 5-f 3e6r 5u23 " 

1890 PAINT<20,7),12,12 
1900 DRAW"bm55,94a0cl5xt$;" 

1910 PAINT<56,93),15,15 
1920 DRAW"bm225,103a0s8c14hluSelrlul 
r7d 1 -F1 d5gII8bm230,98u4r3d 112d 1 r 1 d 11 1 
dill" 

1930 RETURN 


1940 

1950 9 ronde 4 

1960 COLOR ,1,1:CLS;X=10:Y=11:PUT SP 
RITE0,(X,Y),15,0 
1970 GOSUB3200 
1980 CLOSE#1 

1990 " A0C6SBU10E7F7D10L_ 14 " 

2000 DRAW"BM15,60XHU$;" 

2010 PAINT(20,58),6,6 
2020 DRAW n BM50,54XHU$;" 

2030 PAINT<55,52),6,6 

2040 DRAW"BM92,5C4D7R50D20L30G30D10R 
10E30R50" 


2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 


PAINT<230,10),4,4 

DRAW"BM87,35R40D5L25G35D10" 

DRAW"BM86,35D10G30D10R10" 

PAINT <89,37),4,4 

DRAW"BM4,155R50E30R10D10R50" 

PAINT <10,156),4,4 

DRAW"b m30,90c15x t *;" 

PAINT <31,89) ,15,15\ . 
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2130 DRAW"bm225,103a0s8c14h1u5e1r1u1 
r7d 1 -f 1 d5g 11 Bbm230, 9Bu4r 3d i 1 2d 1 r 1 d U 1 
d 11 1 " 

2140 RETURN 
2150 ? 

2160 ’ronde 5 

2170 COLOR ,1,1:CLS:X=240:Y-90:PUT S 
PRITE0,<X,Y), 15, 1 
2180 GOSUB3200 
2190 CLOSE#! 

2200 DRAW"bm5, 1 B0c9a0sBu30e5r 10e7-f3e 
4-f 3e 15r 13f 10e5r 10f 10e7-f 4u8r 1 d9f 18d 24 


2210 LINE<4,180)-<255,178),9,BF 
2220 PAINT<6,170),9,9 
2230 C I ROLE < 235,50),10,10 
2240 PAINT <235,50),10,10 
2250 DRAW"bml89, 54c 13xv$: " 

2260 PAINT<194,53),13,13 
2270 DRAW "bm 158, 77c6s7a0u8e5-f 5d81 9 " 
2280 PAINT<159,75),6,6 
2290 DRAW"bm200,30a0sBc14hluSelrlulr 
7d 1 -f ld5g 11 Bbm205,25u4r3d 112dlrldll Id 
111 " 

2300 DRAW"b m105,68c 6s7a0u12e5T 5d1219 


2310 PAINT<106,66),6,6 
2320 CIRCLE<140,35),10,7 
2330 PAINT <140,35) , 7,7 
2340 LINE<5,50)-<50,46),4,BF 
2350 CIRCLE(75,55),10,2 
2360 PAINT<75,55),2,2' 

2370 DRAW”bm30,70c4a0s8>! " 

2380 PAINT<35,69),4,4 
2390 DRAW"bml7,107c15xt$;" 
2400 PAINT(18,106),15,15 
2410 CIRCLE<95,10),18,11 
2420 PAINT<95,10),11,11 
2430 RETURN 


4, BF 
,4, BF 
4, BF 
,4, BF 


2440 =• 

2450 ? ronde 6 

2460 COLOR ,1,1:CLS:X=10:Y=50:PUT SP 
RITE0, (X,Y),15,0 
2470 CLOSE#1 

GOSUB3200 

LINE(5,90) — < 68,87), 

LINE(20,90)”<23,30) 

LINE(40,5) — < 43,65), 

LI NE < 65,90) — (68,30) 

LINE<85,5)-<88,60),4,BF 
LINE<85,60)“<210,63);4,BF 
LINE<210,60)“(213,143),4,BF 
LINE<185,180)“(188,95),4,BF 
LINE<160,150)“<110,148),4,BF 
LINE<110,150)-<113,120),4,BF 
LINE<110,120)-<85,123),4,BF 
LINE<85,120)“(88,85),4,BF 
LINE <88,85)-<160,88),4,BF 
LINE<163,85)-(160,90), 4,BF 
LINE<163,110)-<160,120),4,BF 
LINE<163,120)-<132,123),4^BF 
LINE<132,120)-<130,130),4;&F 
LINE < 85,145)-< 88,180) ,4,BF 
LINE<85,123)-<25,120),4,BF 
LINE<40,120)-<43,160),4,BF 
LINE<60,180)-<63,145),4,BF 
LINE<120,150)-<123,162),4,BF 
LINE<20,180)-<23,145),4,BF 
LINE<255,80)-(235,77),4,BF 
DRAW"bml10,105c15a0sBxt*;" 

PAINT(111,104),15,15 
DRAW"bm100,30a0sBc14hlu5elrlulr 
7d1f1d5g118bm105,25u4r 3dll2dlrldllId 
ill" 

2760 CIRCLE<160,32),12,11 
2770 PAINT<160,32),11, 11 
2780 RETURN 


2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 


2790 COLOR ,1,IsCLS:X=10:Y=30:PUT SP 

RITE0, <X,Y),15,0 

2B00 GDSUB3200 

2810 CLOSE#1 

2820 FORI=25T0210STEP35 

2830 5R—RND(-TIME)* 10+2 

2840 CIRCLE <1,20),SR,SR 

2850 PAINT(1,20),SR,SR 

2860 NEXT I 

2870 FDRI=46TO240STEP35 
2880 SR=RND<-TIME)*10+2 
2890 CIRCLE(I,47),SR,SR 
2900 PAINT<I,47),SR,SR 
2910 NEXT I 

2920 FORI=25TO240STEP35 
2930 SR=RND(-TIME)*10+2 
2940 CIRCLE <1,76),SR,SR 
2950 PAINT(1,76),SR,SR 
2960 NEXTI 

2970 FORI=46TG240STEP35 
2980 SR=RND(-TIME)*10+2 
2990 CIRCLE<1,110),SR, SR 
3000 PAINT(I,110),SR,SR 
3010 NEXTI 

3020 FORI-25TO240STEP35 
3030 SR=RND(-TIME)*10+2 
3040 CIRCLE(I,140),SR,SR 
3050 PAINT(I,140),SR,SR 
3060 NEXTI 

3070 FORI=46TO240STEP35 
3080 5R=RND(-TIME)*7+2 
3090 CIRCLE <1,170),SR,SR 
3100 PAINT(I,170),SR,SR 
3110 NEXT I 

3120 LINE<100,90)-<125,70),1,BF 
3130 DRAW"BM105,80C15A0SBXT$;" 

3140 PAINT<106,79),15,15 

3150 LINE(225,130)-(255,170),1,BF 

3160 DRAW"bm230,160a0sBc14hluSelrlul 

r 7d 1 -f 1 d5g 11 8bm235, 155u4r3d 11 2d 1 r 1 d 11 
Id 11 1 " 

3170 RETURN 
3180 

3190 11 RAND OM VELD 
3200 LINE(0,0)-<255,7),4,BF 
3210 LINE(0,0)—(5,191),4,BF 
3220 LINE (255,0)-’<250, 191) ,4,BF 
3230 LINE <0,191)-<255,180),4,BF 
3240 CLOSE#1 

3250 OPEN"GRP:"AS#1:PRESET<170,0):CO 
LOR 15 

3260 IFR=1THENPRINT#1,"BergCLOSE#! 

:GOTO 3330 

3270 IFR=2THENPRINT#1,”Zig-Zag”:CLOS 
E#1:GOTO 3330 

3280 IFR=3THENPRINT#1,"GrotCLOSE#1 
:GOTO 3330 

3290 IFR=4THENPRINT#1,"Dor p":CLOSE#I 

;GOTO 3330 

3300 IFR=5THENPRI NT#1,"Stad”:CLOSE#1 
:GOTO 3330 

3310 I FR=6THENPR I NT# 1, "Dool ho-f " : CLOS 
E# 1 

3320 IFR=7THENPRINT#1,"Keien":CLOSE# 

1 

3330 RETURN 
3340 ’ 

3350 "EINDE 

3360 FDR S= 15T010STEP—1 : F'LAY "L4S8V—S 
;o1T255CCDCDD";NEXT 
3370 SCREEN 1:COLOR 15,1,1:CLS 
3380 IF SOSH THEN SH“SC: GOTO 3470 
3390 PRINT" SCORE: ";SC 

3400 PRINTSPRINT 

3410 PR i NT"HOOGSTE SCORE BEHAALD DOD 
R :":PRINT:PRINTRE$:PRINT:PRINT"IS : 

" s SH 

3420 SC=0:L=3:T=0:Y2=19:R-0 
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3430 FORX=0T020005 NEXTX 
3440 GOTO 250 
3450 * 

3460 ? NAAM HOOGBTE SCORE 1NVULLEN 
3470 PRINT:PRINT 

34B0 PRINT"U HEEFT EEN NIEUWE HOOGST 
E ":PRINT:PRINT"SCORE GEHAALD,VUL U 
W NAAM":PRINT:PRINT”IN (MAX.10 LETTE 
RS) ” 

3490 PRINT:PRINT:INPUT RE* 

3500 BEEP 

3510 FDRX=0TO100:NEXT 
3520 PRINT:PRINT:PRINT:PR1NT 
3530 GOTO 3410 
3540 7 

3550 ? poortjes sluiten 
3560 K—TIME/50 
3570 IFK >39ANDT=1THEN3620 
3580 IFK= >7THENLINE(40,65)-(50,6B) ,6 
BF 

3590 IFK= >19THENLINE(120,63)-<123,84 
) 6 BF 

3600 IFK=>23THENLINE < 68,90) — (65, 100) 
6 BF 

361.0 I FK= >31THENLI NE (132, 120)-(110, 1 
23) , 6, BF 

3620 IFK=>39THENLINE(213,140)-(225,1 

43),6,BF 

3630 GOTO 670 

3640 SCREEN2:WIDTH32 

3650 COLOR1 

3660 F0RKE=1T014 

3670 LINE(0,KE#10) — (255,KE*100) ,KE, B 
F 

3680 NEXTKE 

3690 CLOSE#1:OPEN”grp:"AS#1:PRESET(4 
0,150):COLOR 8:PRINT#1,”A11e Rondes 
Door 1 open” 

3700 Y3=30 

3710 PLAY”v 15t 1301 8o4aaagg-f -f eaag-f eda 

cdf gedcf gaacedeccdd-f gaaged-f cagel 4-f de 
c " 

3720 FCRX3-1T0255STEP1.5 
3730 PUT SPRITE0,(X3,Y3),1,0 
3740 NEXTX3 

3750 Y3=Y3+20: IFY3M40THEN3370 
3760 GOTO 3720 
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1890 

- 

5 

1900 

- 

121 

1910 

- 

131 

1920 

- 

24 

1930 

- 

142 

1940 

- 

58 

1950 

- 

58 

1960 

- 

46 

1970 

- 

39 

1980 

- 

233 

1990 

— 

110 

2000 

- 

221 

2010 

- 

46 

2020 

- 

223 

2030 

— 

75 

2040 

- 

188 

2050 

* 

2*4 

2060 

- 

202 

2070 

- 

58 

2080 

- 

90 

2090 

- 

250 

2100 

- 

130 

2110 

- 

221 

2120 

- 

102 

2130 

- 

24 

2140 

- 

142 

2150 

- 

58 

2160 

- 

« 

JD 

2170 

- 

1*0 

2180 

* 

39 

2190 

- 

233 

2200 

- 

167 

2210 

* 

60 

2220 

- 

152 

2230 

- 

254 

2240 

- 

1 

2250 

- 

28 

2260 

- 

225 

2270 

- 

0 

2280 

- 

202 

2290 

- 

216 

2300 

* 

78 

2310 

- 

140 

2320 

* 

143 

2330 

- 

145 

2340 

- 

101 

2350 

- 

93 

2360 

- 

90 

2370 

- 

231 

2380 

- 

68 

2390 

- 

17 

2400 

- 

106 

2410 

- 

83 

2420 

- 

79 

2430 

- 

142 

2440 

- 

58 

2450 

- 

58 

2460 

- 

85 

2470 

- 

233 

2480 

- 

39 

2490 


240 

2500 

- 

111 

2510 

“ 

1*3 

2520 

- 

201 

2530 

- 

188 

2540 

* 

110 

2550 

* 

145 

2560 

- 

84 

2570 

- 

4 

2580 

- 
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2590 

- 

130 

2600 

- 

70 

2610 

- 

113 

2620 

- 

190 

2630 

- 

245 

2640 

- 

230 

2650 

- 

204 

2660 

- 

190 

2670 

- 

45 

2680 

- 

55 

2690 

- 

140 

2700 

- 

247 

2710 

- 

60 

2720 

- 

83 

2730 

- 

117 

2740 

- 

197 

2750 

- 

214 

2760 

- 

164 

2770 

- 

166 

2780 

- 

142 


(c) 



2790 - 65 
2800 - 39 
2810 - 233 
2820 - 170 
2830 - 57 
2840 - 71 
2850 - 74 
2860 - 236 
2870 - 221 
2880 - 57 
2890 - 98 
2900 - 101 
2910 - 204 
2920 - 200 
2930 - 57 
2940 - 127 
2950 - 130 
2960 - 204 
2970 - 221 
2980 - 57 
2990 - 161 
3000 - 164 
3010 - 204 
3020 - 200 
3030 - 57 
3040 - 191 
3050 - 194 
3060 - 204 
3070 - 221 
3080 - 56 
3090 - 221 
3100 - 224 
3110 - 204 
3120 - 74 
3130 - 107 
3140 - 167 
3150 - 213 
3160 - 70 
3170 - 142 
3180 - 58 
3190 - 58 
3200 - 216 
3210 - 150 
3220 - 134 
3230 - 64 
3240 - 233 
3250 - 89 
3260 - 145 
3270 - 139 
3280 - 175 
3290 - 169 
3300 - 161 
3310 - 225 
3320 - 3 
3330 - 142 
3340 - 58 
3350 - 58 
3360 - 33 
3370 - 129 
3380 - 144 
3390 - 124 
3400 - 92 
3410 - 48 
3420 - 15 
3430 - 187 
3440 - 177 
3450 - 58 
3460 - 58 
3470 - 92 
3480 - 54 
3490 - 246 
3500 - 192 
3510 - 227 
35Z0 - 242 
3530 - 22 
3540 - 58 



3570 - 95 
3580 - B2 
3590 - 3 
3600 - 196 
3610 - 110 
3620 - 179 
3630 - 87 
3640 - 225 
3650 - 2*7 
3660 - 9 
3670 - 188 
3680 - 19 
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Regel: 3490 - 52 
Regel: 3700 - 148 
Regel: 3710 - 96 
Regel: 3720 - 68 
Regel: 3730 - 230 
Regel: 3740 - 14 
Regel: 3750 - 20 
Regel: 3760 - 77 
Totaal: 46792 


4 op een rij 
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al-i aly* |JLp *1* *1* |Li i^jia .JU- «Jjf ajLi tJhp- ‘ijL/ &1 b dj^a jjLp ^rLa ^La qJj lIp 

flP' * ■flp "P’ 'TP *f' Jjp *T* *p> «p »p 

* 4 OP EEN RIJ * 

t Door G. W. J. v. d. Pol # 

# * 

# <c)1986 MSX Bids Amsterdam * 

■ I* J* qJL * ^ | ■ *li ■ dji ■ *■ JLj (jli |Ii it i ml* Jj *|l p- ijtp lit &Ea f|i i|4yp kILb- &Lp ^dLp ^La «4a ^lJib iif ajLa bJn^ 

Jnph v¥h JrTV fh JrPV ^Tk ajnlfc hIWbi nm JVa jflpi irli In flpa rt\ *^p flpli ^Pb JWa flpi JrW* vni ^Pa /Pi rti -rTl flrs J^Pi til 




80 KEY OFF 
90 CLEAR:DEFINT A-Z 


100 SCREEN 0:COLOR 15,4,4:CLS 

110 LOCATE 10,4 

120 PRINT"4 OP EEN RIJ" 

130 LOCATE 3,8:PRINT”Wilt U eerst de 
spelregels en eventueel een demonst 
ratie <J o-f N)?" 

140 I*=INKEY*: IF 1*="" GOTO 140 
150 IF I*="N" OR I*="n"GDTO 2B0 
160 IF I*="J" OR I*="j"GOTO 180 
170 GOTO 140 
180 CLB 


190 LOCATE 3,0!PRINT M Bij dit spel m 
oeten de speiers omde beurt een pi 
on in een bepaal desl eu-f laten vail 
en. 


200 LOCATE 3,45 F'RINT "Het is daarbij 
dan de bedoeling omals eerste te pro 
beren om -4“ pionnenop £#n rij te kr 
ijgen. 

210 LOCATE 3,8s F‘R I NT "Wilt U eerst ee 
n demonstrable vandit spel door de 
computer (J o-f N) ?" 

220 LOCATE 3,11;PRINT"A1s U voor d 
e demonstratie kiestdan kunt U deze 
straks weer onderbreken door de spa 
tiebalk zolang in tedrukken totda 
t het nieuwe beeld zichaandient, 

230 LOCATE 3, 19 s PRINT"Tik d an nu Uw 
keuze (J o-f N) in, 

240 I*=INKEYS:IF I*=""GDTO 240 
250 IF I*="N" OR I*~"n" GOTO 280 
260 IF I$="J ,! OR I*="j" THEN AA“3: GO 
TO 420 


270 GOTO 240 

280 CLEAR:CLSsSCREEN 05COLOR 15,4,7 
290 DEFINT A-Z 

300 LOCATE 2,1:PRINT"Dit spel kan wo 
rden gespeeld tussen 2 personen ( 2 ), 
waarbij de bedieningdan plaats vind 
t d.m.v.de joysticks. 

310 LOCATE 1,5s PRINT"Stick 1 speelt 
dan met rood en stick 2 met blauw. 

320 LOCATE 6 , 8 : PRINT"Ook is het moge 
lijk om tegen decomputer te spelen. 

U speelt dan metrood en joystick 
1 (i) D-f met decursortoet sen en 

spatiebalk op hettoetsenbord (T). 
330 LOCATE 3,14:PRINT"Met de stick ( 
of de cursortoetsen)wordt de pijl bo 
ven de sleuf gebrachtBij een druk op 
de rode knop ( o-f despati ebal k) va 
It de pi on naar beneden 
340 LOCATE 3,19:PRINT"Tik nu Uw keuz 
e in <2,1 o-f T) . 

350 AA=3 

360 I*=INKEY*:IFI*=""GOTO 360 

370 IF I*="1"THEN AA-i 

380 IF I*=”2"THEN AA=2 

390 IF I*="T"OR l*="t "THEN AA=0 

400 IF AA>2 GOTO 360 

410 ? 

420 ^ ++++• Fr ame-constr uct i e ++++++ 
430 =* 

440 DATA 0,0,0,24,24,0,0,0 
450 DATA 0,24,24,126,126,24,24,0 
460 DATA 60,60,60,60,255,126,60,24 
470 DIM A(100)j B(100),C( 100 >,D(i00), 
E <100),F <100) , T (100) ,L(108 > 

480 DIM AP < 100) , AN < 100) , BF* < 100) , BN (1 

00 ),CP( 100 ) ,CN(100 >,DP <100),DN(100) 

490'FOR J=0 TO 100 STEP 10 

500 L(J) = lsL. (J+ 8 > =1: NEXT 

510 FDR J=0 TO 8 

520 L(J)= 1 :L <J+ 100 )= 1 :NEXT 

530 SCREEN 2,0:COLOR 1,3,4:CLS 

540 FOR X=B 2 TO 226 STEP 16 

550 LINE <X,60) — < X,175),1:NEXT 

560 FOR X=63 TO 175 STEP 16 

570 LINE <B2,X)~<226,X),1sNEXT 

580 OPEN"GRPs "FOR OLJtPUT AS#1 

SQOi F'RESFT <95 10) 

600 PRINT#1,"VIER OP EEN RIJ" 

610 PRESET (75,34) 

620 F'RINT# 1 , "SF’ELER IS AAN ZET” 
630 FOR J=1 TO 3:A$-"" 

640 FOR 1=1 TO 8 

650 READ A:A$=A$+CHR$(A)s NEXT 

660 SPRITE*<J)=A*sNEXT 

670 RESTORE 

680 FOR 1=17 TO 97 STEP 10 
690 F <I)=1s NEXT 
700 ? 

710 ? ++++++ Spelprocedure +++++++++ 

720 5 

730 X=150 

740 C=B M0D2 

750 IF C=1 THEN 770 

760 Q= 8 :ST=1:GOTO 780 

770 Q=4:5T=2 

780 IF AA=0 THEN ST=0 

790 LINE <130,33)-<145,41) ,Q,BF 

800 PUT SPRltE 1,<X,51),1,3' 

810 IF AA=3 AND STRIG(0) GOTO 280 
820 IF AA=3 AND C=1 THEN 1870 

830 IF AA=3 AND C=0 THEN 2350 

840 IF AA=1 AND C=1 THEN 1870 

850 IF AA=0 AND C=1 THEN 1870 

860 BB=STICK(ST) 

870 IF BB=3 THEN X=X+16:IF X>214 THE 
N X=214 
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880 IF BB -7 THEN X=X-16: IF X <86 THEN 
X =86 

890 PUT SPRITE 1,<X,51),1,3 

900 FOR T=1 TO 200s NEXT T 

910 IF AA =3 GOTO 950 

920 IF AA=1 AND C=1 GOTO 950 

930 IF AA=0 AND C-l GOTO 950 

940 IF STRIG(ST)=0 GOTO 820 

950 M=(X—70)/1.6 

960 FOR K=1 TO 7 

970 Y=K*16+55 

980 CIRCLE (X+4,Y-l 6 ),5,3:PAINT ( X,Y- 
16),3 

990 IF K=1 GOTO 1010 

1000 LINE<X—4 5 Y-24)-(X-4,Y—8),1 

1010 CIRCLE (X +4,Y),5,0s PAINT(X, Y),Q 

1020 IF F (M+K)=1 GOTO 1040 

1030 FOR T=1 TO 20:NEXT:NEXT 

1040 A=M+K:F(A-1)=1:F(A)=10 

1050 PUT SPRITE 3,(X,Y-4),15,1 

1060 Y —(AMOD10)* 16+55 

1070 IF C=0 THEN Z = 1 

1080 IF C=1 THEN Z = 10 

1090 B=B+1s E <A)=Z 

1100 IF B=63 GOTO 1370 

1110 GOSUB 1550 

1120 Fi=F <11)+F(21>+F(31)+F(41)+F(51 
) +F (61) +F (71) +F <81 ) +F <91) 

1130 ? 

1140 ? +++ Controle 4 op een rij +++ 
1150 ? 

1160 0=1 sGOSUB 1220 
1170 0=10:GOSUB 1220 
1180 0=9 sGOSUB 1220 
1190 0=11:GOSUB 1220 
1200 BEEP:BEEP:GOTO 730 
1210 ? 

1220 U=0:R=0 

1230 FOR I=A TO 97 STEP O 
1240 IF E(I)=Z THEN U=U +1 
1250 IF L <I+ 0 ) = 1 OR E <I> < >Z GOTO 127 
0 

1260 NEXT 

1270 FOR J=A TO 11 STEP -0 

1280 IF E(J)=Z THEN R=R+1 

1290 IF L (J+0) —1 OR E(J)OZ GOTO 131 

0 

1300 NEXT 

1310 IF U+R=>5 THEN 1340 
1320 RETURN 
1330 ? 

1340 A=A-(R-1>*0 

1350 BEEPS BEEP:BEEPS BEEP 

1360 LINE(33, 66 )-(49,74),Q,BF 

1370 LINE(90, 8 ) — <230,20),3,BF 

1380 IF B=63 GOTO 1420 

1390 PRESET <35, 88 ):PRINT#1,"IS" 

1400 PRESET (15, 1 10) : PRINT# 1 , "WINNAAR 

II 

1410 IF B<63 GOTO 1430 
1420 PRESET<15,110):PRINT#1,"REMISE” 
1430 PRESET<44,10):PRINT#1,"VOOR EEN 
NIEUW SPEL DE" 

1440 PRESET(52,22):PRINT#1,"SPATIEBA 
LK INDRUKKEN" 

1450 IF B=63 GOTO 1520 
1460 FOR 1=0 TO 3 
1470 X=<<A+I*0)\10)* 16+70 
1480 Y=((A+1*0)MOD10)*16+51 
1490 PUT SPRITE 2,<X,Y>,15,2 
1500 FOR T=i TO 20:NEXT:NEXT 
1510 IF STRIG (0>=0 GOTO 1460 
1520 IF STRIG <0>=0 GOTO 1520 
1530 GOTO 90 
1540 ? 

1550 *++Toekenning puntenwaarde+++++ 
1560 ? 

1570 U=1 :GOSUB 1710 


1580 A < V)=K* Z +AN(V) 

1590 A(W)=AP(W)+K*Z 
1600 U=10:GOSUB 1710 
1610 B(V)=K * Z +BN < V) 

1620 B(W)=BP(W)+K*Z 
1630 U=9 :GOSUB 1710 
1640 C < V)=K * Z +CN < V) 

1650 C(W)=CP(W)+K*Z 
1660 U=U; GOSUB 1710 
1670 D(V)=K * Z +DN(V) 

1680 D(W)=DP(W)+K*Z 
1690 RETURN 
1700 ? 

1710 K=0:V=0:W=0 
1720 FOR I=A TO 97 STEP U 
1730 IF E(I)=Z THEN K=K+1 
1740 IF E(I)< >Z THEN V=I 
1750 IF L <I+U) = 1 OR E(I)< >Z THEN 177 
0 

1760 NEXT 

1770 IF E < V)>0 THEN V=0 
1780 ■’ 

1790 FOR J=A TO 0 STEP -U 
1800 IF E(J)=Z THEN K=K + 1 
1810 IF E < J)< >Z THEN W=J 
1820 IF L < J+U) =1 OR E(J)OZ THEN 184 
0 

1830 NEXT 

1840 IF E <W)>0 THEN W=0 
1850 K=K-1:RETURN 
I860 ? 

1870 *++ Plaatsen van blauwe pi on ++ 
1880 > 

1890 R=RND(~TIME> 

1900 W=0:N=1000:NN=0:NM=0 

1910 F=0:G=0 

1920 P=INT(RND(1)*2+1) 

1930 IF P=2 THEN 1950 

1940 P1=10:P2=90:P3=10:GOTO i960 

1950 P1=90:P2=10:P3=-10 

I960 FOR J=P1 TO P2 STEP P3 

1970 IF J=NN OR J=NM THEN 2030 

1980 FOR 1=7 TO 1 STEP-1 

1990 IF E(J +1)>0 THEN 2020 

2000 T <J + I)=A(J + I)+B<J + I)+C(J + I)+D<J 

+ I> 

2010 IF W= >1 THEN 2090 ELSE 2050 
2020 NEXT I 
2030 NEXT J 
2040 GOTO 2160 

2050 IF A(J+I)>=30 OR B(J+I)>=30 THE 
N 2330 

2060"IF C <J + I)>=30 OR D(J + I)>=30 THE 
N 2330 

2070 IF A < J +1)MOD10 >=3 OR B(J + I)M0D1 
0>=3 THEN 2330 

2080 IF C(J+I)MODI0>=3 OR D(J+I)MODI 

0 >=3 THEN 2330 

2090 IF F1 = >80 GOTO 2330 

2100 FF= <J +1)* 10+ T(J + I)\10 

2110 GG=(J+I)*10+T(J+I)MOD 10 

2120 IF T(J+I)\10=>FMOD10 THEN F=FF 

2130 IFT < J +1)MOD10= >GMOD10 THEN G=GG 

2140 GOTO 2030 

2150 ? 

2160 N=F 

2170 IF B < (N\10)-1)MODI0=>3 THEN2250 

2180 IF C((N\10)-1)MOD10=>3 THEN2250 

2190 IF D(<N\10)-1)MOD10= >3 THEN2250 

2200 IF B<(N\10)-l)MOD10=2 AND C((N\ 

10)-1)MODI 0=2 THEN 2250 

2210 IF B<(N\10)-1)MOD10=2 AND D((N\ 

10)-1)MODI0=2 THEN 2250 

2220 IF C((N\10)-1)MOD10=2 AND D((N\ 

10)-1)MODI 0=2 THEN 2250 

2230 IF N=6 THEN 2300 

2240 N=G:GOTO 2170 

2250 W=W+1:F1=F1+10 
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2260 IF W=1 THEN NN=<N\100)*10 
2270 IF W=2 THEN NM=(N\100)* 10 
2280 IF W=3 GOTO 2300 
2290 GOTO 1910 

2300 IF F MOD10<GMOD10 THEN 2320 
2310 X=(F\100)*16+70:GOTO 890 
2320 X=(G\100)*16+70:GOTO 890 
2330 X=<(J + I)\10)*16+70:GOTO 890 
2340 * 

2350 '+++ Plaatsen van rode pi on +++ 
2360 =* 

2370 IF B-0 GOTO 2830 
2380 R=PND(-TIME) 

2390 W=0 s N=1000:NN=0:NM=0 

2400 F=0sG=0 

2410 P=INT(RND(1)*2+1) 

2420 IF P=2 THEN 2440 

2430 P1 -10: P2=90: F'3=10: GOTO 2450 

2440 P1=90:P2=10:P3=-10 

2450 FOR J=P1 TD P2 STEP P3 

2460 IF J=NN OR J=NM THEN 2520 

2470 FOR 1=7 TO 1 STEP-1 

2480 T < J +1)=A (J +1)+B (J +1 > +C(J +1 >+D(J 

+ 1 ) 

2490 IF E < J +1)>0 THEN 2510 
2500 IF W=1 THEN 2580 ELSE 2540 
2510 NEXT I 

2520 NEXT T 

2530 GOTO 2650 

2540 IF A (J +1 )MOD10>=3 OR B<J+I)MODl 

0>=3 GOTO 2820 

2550 IF C(J +1)MOD10>=3 OR D(J + I)MODI 
0>=3 GOTO 2820 

2560 IF A(J+I)>=30 OR B(J+I)>=30 GOT 
O 2820 

2570 IF C(J+I)>=30 OR D(J+I>>=30 GOT 
O 2820 

2580 IF F1 = >80 GOTO 2820 

2590 FF=(J + I)*10+T <J + I)MOD10 

2600 GG=(J+I)*10+T(J+I)\10 

2610 IF T < J +1)MOD10= >FMQD10THEN F=FF 

2620 IF T(J +1)\10= >GMOD10 THEN G=GG 

2630 GOTO 2520 

2640 ’ 

2650 N=F 

2660 IF B(<N\10)-1)\10=>3 THEN 2740 
2670 IF C<(N\10)-l)\10=>3 THEN 2740 
2680 IF D<(N\10)-1)\10= >3 THEN 2740 
2690 IF B((N\10)-1)\10=2 AND C<(N\10 
)-1)\10=2 THEN 2740 

2700 IF B < <N\10) — 1)\10=2 AND D((N\10 
> — 1)\10=2 THEN 2740 

2710 IF C< (NM0)-1)\10=2 AND D((N\10 

)—1 )\10=2 THEN 2740 

2720 IF N”G THEN 2790 

2730 N=G:GOTO 2660 

2740 W=W+1:F1=F1+10 

2750 IF W=1 THEN NN=(N\100)*10 

2760 IF W=2 THEN NM=(N\100)*10 

2770 IF W=3 GOTO 2790 

2780 GOTO 2400 

2790 IF F MOD10<GMDD10 THEN 2810 
2800 X=(F\100)*16+70:GOTO 890 
2810 X=(G\100)*16+70:GOTO 890 
2820 X=((J+I)\10)*16+70:GOTO 890 
2830 X=150:GOTO 890 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2B0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

B20 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

9B0 

990 

1000 

1010 

1020 

1030 

1040 


174 

65 

67 

159 

196 

123 

130 

4 

56 

116 

206 

11 

167 

B5 

B9 

192 

244 

198 

205 

48 

133 
205 
249 
251 

70 

110 

58 

58 

58 

196 

2 

113 

55 

134 
173 
209 

30 

43 

184 

143 

ill 

73 

184 

241 

231 

40 

235 
32 

236 

30 
176 
151 
140 
1B4 
158 
58 
58 

58 
236 
162 
28 

59 

56 
238 
101 
141 
90 
39 

8 

37 

36 

12 

81 

88 

141 

24 

192 

56 

55 

115 

148 

31 
220 

27 

195 

109 

115 

183 

173 

234 


Regel: 1050 - 1B3 
Regel: 1060 - 55 
Regel: 1070 - 99 
Regel: 1080 - 107 
Regel: 1090 - 208 
Regel: 1100 - 96 
Regel: 1110 - 207 
Regel: 1120 - 143 
Regel: 1130 - 58 
Regel: 1140 - 58 
Regel: 1150 - 58 
Regel: 1160 - 45 
Regel: 1170 - 20 
Regel: 1180 - 53 
Regel: 1190 - 21 
Regel: 1200 ' 135 
Regel: 1210 - 58 
Regel: 1220 - 225 
Regel: 1230 - 15 
Regel: 1240 - 137 
Regel: 1250 - 241 
Regel: 1260 - 131 
Regel: 1270 - 172 
Regel: 1280 - 132 
Regel: 1290 - 28 
Regel: 1300 - 131 
Regel: 1310 - 159 
Regel: 1320 - 142 
Regel: 1330 - 58 
Regel: 1340 - 76 
Regel: 1350 - 174 
Regel: 1360 - 230 
Regel: 1370 - 41 
Regel: 13B0 - 146 
Regel: 1390 - 229 
Regel: 1400 - 91 
Regel: 1410 - 157 
Regel: 1420 - 16 
Regel: 1430 - 231 
Regel: 1440 - 195 
Regel: 1450 - 246 
Regel: 1460 - 24 
Regel: 1470 - 19 
Regel: 1480 - 0 
Regel: 1490 - 176 
Regel: 1500 - 173 
Regel: 1510 - 95 
Regel: 1520 - 155 
Regel: 1530 - 17 
Regel: 1540 - 58 
Regel: 1550 - 58 
Regel: 1560 - 58 
Regel: 1570 - 31 
Regel: 1580 - 150 
Regel: 1590 - 154 
Regel: 1600 - 6 
Regel: 1610 - 152 
Regel: 1620 - 156 
Regel: 1630 - 39 
Regel: 1640 - 154 
Regel: 1650 - 158 
Regel: 1660 - 7 
Regel: 1670 - 156 
Regel: 1680 - 160 
Regel: 1690 - 142 
Regel: 1700 - 58 
Regel: 1710 - 108 
Regel: 1720 - 21 
Regel: 1730 - 149 
Regel: 1740 - 106 
Regel: 1750 - 62 
Regel: 1760 - 131 
Regel: 1770 - 6 
Regel: 1780 - 58 
Regel: 1790 - 169 
Regel: 1800 - 150 
Regel: 1810 - 109 
Regel: 1 B 20 - 135 
Regel: 1830 - 131 
Regel: 1840 - 8 
Regel: 1850 - 81 
Regel: 1860 - 58 
Regel: 1870 - 58 
Regel: 1880 - 58 
Regel: 1890 - 214 
Regel: 1900 - 128 
Regel: 1910 - 199 
Regel: 1920 - 7 
Regel: 1930 - 202 
Regel: 1940 - 2 



Regel: 1950 - 84 
Regel: 1960 - 150 
Regel: 1970 - 168 
Regel: 1980 - 29 
Regel: 1990 - 215 
Regel: 2000 - 73 
Regel: 2010 - 126 
Regel: 2020 - 236 
Regel : 2030 - 237 
Regel: 2040 - 47 
Regel: 2050 - 110 
Regel: 2060 - 114 
Regel: 2070 - 100 
Regel: 2080 - 104 
Regel: 2090 - 88 
Regel: 2100 - 139 
Regel: 2110 - 172 
Regel: 2120- 27 
Regel: 2130 - 222 
Regel: 2140 - 172 
Regel: 2150 - 58 
Regel: 2160 - 131 
Regel: 2170 - 213 
Regel: 2180 - 214 
Regel: 2190 - 215 
Regel: 2200 - 158 
Regel: 2210 - 159 
Regel: 2220 - 160 
Regel: 2230 - 91 
Regel : 2240 - 247 
Regel: 2250 - 193 
Regel: 2260 - 194 
Regel : 2270 - 194 
Regel : 2280 - 224 
Regel: 2290 - 52 
Regel: 2300 - 177 
Regel: 2310 - 19 
Regel: 2320 - 20 
Regel : 2330 - 72 
Regel: 2340 - 58 
Regel: 2350 - 58 
Regel: 2360 - 58 
Regel: 2370 - 221 
Regel: 2380 - 214 
Regel: 2390 - 128 
Regel: 2400 - 199 
Regel: 2410 - 7 
Regel: 2420 - 182 
Regel : 2430 - 238 
Regel: 2440 - 84 
Regel: 2450 - 150 
Regel: 2460 - 148 
Regel: 2470 - 29 
Regel: 2480 - 73 
Regel: 2490 - 195 
Regel: 2500 - 103 
Regel: 2510 - 236 
Regel: 2520 - 237 
Regel: 2530 - 27 
Regel: 2540 - 255 
Regel: 2550 - 3 
Regel: 2560 - 9 
Regel: 2570 - 13 
Regel: 2580 - 68 
Regel: 2590 - 138 
Regel: 2600 - 141 
Regel: 2610 - 21B 
Regel: 2620 - 255 
Regel: 2630 - 152 
Regel: 2640 - 56 
Regel: 2650 - 131 
Regel: 2660 - 226 
Regel: 2670 - 227 
Regel: 26B0 - 22B 
Regel: 2690 - 140 
Regel: 2700 - 141 
Regel: 2710 - 142 
Regel: 2720 - 71 
Regel: 2730 - 227 
Regel: 2740 - 193 
Regel: 2750 - 194 
Regel: 2760 - 194 
Regel: 2770 - 204 
Regel: 2780 - 32 
Regel: 2790 - 156 
Regel: 2800 - 19 
Regel: 2810 - 20 
Regel: 2820 - 72 
Regel: 2830 - 90 
Totaal: 33920 

(c) Junior 99 







Duiven schieten 



Beeldscherm: WIDTH 36 
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=* * 


DUIVEN SCHIETEN 
Door G. W. J . v, d. Pol 


<c) 1 


MSX Gids Amsterdam 


* 
* 
* 
* 
* 

ji Ul' ib" hJlp "JLp |JLf t|JL^ cLr yb T±r ib 1 ib ib -^b tb OLp du> ib* ib lir iJLr \b lb «b tb lb ifjLf ib -%b ib 

^Tp ^fk /jp 'Tr* 1 ' H nT^ H np | ^p 1 Jjp ^j™ jfs >^pi -^p tflpfci 

KEY OFF5 CLEAR;SCREEN 2 s COLOR15,4 
DEFINT A—2 


90 OPEN"GRP:"FOR OUTPUT AS#1 
100 LINE(10,0)-(10,192),12: PAINT( 1 , 1 
) , 12 

110 LINE(64,8)-(200,30),11,BF 

120 LINE(68,12)-(196,26),2,BF 

130 PSET<72,16),4:PRINT#1,"DUIVEN SC 

HIETEN" 

140 A*=" Bij dit spel is het de bed 
oeling omzoveel mogelijk duiven nee 
r te schieten van de 20 welke aan 
Uw oog voorbij zullen trekken." 

150 Y=5:GOSUB 1970 

160 A*=" U hebt hiertoe de beschik 
king overgrof geschut dat met de 
stick naarlinks of naar rechts kan 
worden verplaatst." 

170 Y=10:GOSUB 1970 

180 A*= n Met de rode knop kan he 
t geschutworden afgevuurd, 

190 Y=15:GOSUB 1970 

200 A*=" Wilt U bediening d.m.v. jo 
ystick l,tik dan een 1 in. Wilt U be 
diening ophet toetsenbord,tik dan ee 
n T i n. 

210 Y= IS: GOSUB 1970 
220 S—2 

230 I*=INKEY*: IF I*=""GOTO 230 
240 IF I*—"T"GR I*="t"THEN S=0 
250 IF I*=" 1 "THEN S=1 
260 IF S>1 GOTO 230 
270 CLS 

280 LINE(10,0)-(10,192),12:PAINT(1, 1 
) , 12 

290 A*=" In plaats van met het gesc 
hut(G)kunnen we de duiven ook te lij 
f gaan meteen bestuurbare raket <R>. 
300 Y=l:GOSUB 1970 

310 A*=" Tik eerst weer Uw voorkeur 
in. G of R ?" 

320 Y=5:GOSUB 1970 

330 I*=INKEY*:IF I*=""G0T0 330 

340 IF I*="G"0R I*="g”THEN 0=5 



350 IF I*="R"OR I$="r"THEN 0=6 

360 IF 0<5 OR 0>6 GOTO 330 

370 A*=" Het is tenslotte nog mogel 

ijk om demoei 1 ijkheidsgraad in te st 

el 1 en. 

380 Y=9:GOSUB 1970 

390 A*=» ( 1 )De duif kan op elk punt 

dodelijk worden getroffen. 

400 Y=12:GOSUB 1970 

410 A*=" (2>De duif is alleen naar 

dodelijk te treffen aan kop en 

hd 1 s • 

420 Y=15:GOSUB 1970 

430 A*=" Tik Uw voorkeur (1 of 2) in 


440 Y=18:GOSUB 1970 

450 I*=INKEY*:IF I*=""G0TD 450 

460 IF I*="1"THEN G=10 

470 IF I*="2"THEN G=1 

480 IF GOl AND 6010 GOTO 450 


490 A*=" Voor elk nieuw spel de s 
patiebalkindrukken. 

500 Y=20:GOSUB 1970 

510 IF STRIG(0)=0 GOTO 510 

520 =* 

530 =* *#3*:*** Beeld opbouw ********* 
540 =* 

550 SCREEN2,1:COLOR 15,4,4 
560 CLS 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
31 

640 DATA 
2 


15,28,63,254,0,0,0,0 
0,0,63,254,28,0,0,0 
96,96,96,96,240,0,102,102 
0,0,0,14,10,255,153,0 
8 , 0 , 0 , 0 , 0 , 0 , 0,0 
8,8,8,28,28,20,0,0 
112,254,255,255,255,127,63, 

12,60,254,255,255,254,1B8,1 

«■ ■ i ■r ? 2* 


650 DATA 12,60,254,255,255,126,60,0 
660 DATA 137,0,74,0,32,132,0,65 
670 DATA 0,0,7,37,63,63,100,192 
680 DATA 0,0,0,2,0,0,27,27 
690 FOR J = 1 TO 12 :A*="" 

700 FOR 1=1 TO 8 :READ A:A*=A*+CHR*(A 
):NEXT 

710 SPRITE*(J)=A*:NEXT 
720 RESTORE 

730 PRESET<0,191),3:DRAW"R255U16L80H 

5L10H5L155D26 

740 PAI NT(1 190) 3 

750 PRESET ( 0 , 164) , 12: DRAW**U40R50E10R 
20F20R20F30L150 ■ ■ 

760 PRESET(70,113),10:DRAW"U50E1F1D5 
0R5L12 

770 PAINT<71,112),10 
780 PAINT<1,163),12 

790 PRESET(255,174),2:DRAW"U30L30G15 
L10G15R70 

PAINT <254,173),2 

CIRCLE<207,55),10,9:PAINT(207,64 
C= 1 25 

PUT SPRITE 6,<C+3,159),11,4 
PUT SPRITE 7,(C+3,159),13,3 
PUT SPRITE 11,<220,173),11,11 
PUT SPRITE 12,<220,173),13,12 


800 

810 

),9 

820 

830 

840 

850 

860 

870 


880 •' #** * * an # Spel eye 1 us *#**##*## 
890 ? 

900 B=160 

910 PUT SPRITE 8,(C,191),8,2 
920 R=RND<—TIME) 

930 V=INT(RND( 1 )$3+2) 

940 H=INT(RND(1)*90+10) 

950 PUT SPRITE 3,<136-2*Z,80),15,8 
960 PUT SPRITE 4,<120-2*2,80),15,7 
970 PUT SPRITE 2,<194-Z,50),15,7 
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980 PUT SPRITE 9,(70-Z,30),15,9 
990 PUT SPRITE 10,(210-Z,50),15,9 
1000 T=0s Z = Z + 1:IF Z =21 GOTO 1B80 
1010 PRESET < 10 , 0 ):PRINT#1,"DUIF ; " 
1020 PRESET<10'B):PRINT#1,"SCORE:" 
1030 COLOR 4 

1040 PSET(56,0):PRINT#1," ■■■ 

1050 COLOR 15 

1060 PRESET<56,0):PRINT#1,Z 

1070 FORA=248TO-30STEP-V 

10S0 T=T+lsU=TMOD10:IFU>4G0T01120 

1090 PUTSPRITES,(A,H),7,1 

1100 IFUMOD10=0THENBEEP 

1110 GOTO1130 

1120 PUTSPRITE5,(A,H),7,2 

1130 IFEK 160ANDO=5GDTb1210 

1140 IFSTICK(S)=7THENC=C—4 

1150 IFC<20THENC=20 

1160 IFSTICK(S)=3THENC=C+4 

1170 IFC >240THENC = =240 

1180 IF0=6G0T01210 

1190 PUTSPRITE6,<C+4,159),11,4 

1200 PUTSPRITE7,(C+4,159),13,3 

1210 IF 8 < —20GOTO1350 

1220 IFB<160GOTO1300 

1230 IFSTRIG(S)=0GOTO1360 

1240 ’ft##### Afvuren kogel *######## 

1250 S0UND6,15 

1260 SOUND7,31 

1270 SOUND10,15 

12B0 FORD=0TO5:NEXTD 

1290 SOUND10,0 

1300 B=B-4 

1310 IF0=6ANDB>144THENC=125 
1320 PUTSPRITES,<C,B),B,0 
1330 IFC<A- 1 0ORC>A+GORB< H-40RB >H+4G0 
TO1360 

1340 GOTO1390 
1350 B=160 
1360 NEXT 
1370 GOTO900 

1380 ? * * tt * t Dui-f geraakt * # # # * # # * 

1390 K=K+1 

1400 S0UND6,10 

1410 S0UND7,31 

1420 FORD=24TO0STEP-1 

1430 SOUND10,D/2+3 

1440 IFDM0D4< 2G0T01460 

1450 PUTSPRITE 8 ,<C~12+D,B~3>,11,10 

1460 PUTSPRITES,(C,176),8,0 

1470 NEXTD 

1480 B=160:A-A-V:H-H+4 
1490 IF0—6ANDB >160THENC”125 
1500 PUTSPRITES,(A,H),1,1 
1510 IFA<~20GOTO1560 
1520 IFH >180THENH-182:GOTO1550 
1530 GOTO1480 

1540 Dode duiT op de grand #### 

1550 PUTSPRITES,<A,H),1,1 
1560 S0UND6,10' 

1570 S0UND7,31 

1580 FORD-250TO0STEP-1 

1590 SOUND10,D/ 20 :NEXT 

1600 > ### Bi jhouden score ###*### 

1610 C0L0R4 

1620 PSET (56,8) :PRINT#1, "HW 
1630 COLOR15 

1640 PRESET(56,8)SPRINT#1,K 

1650 Opruimen dode dui-f ##### 

1660 A-(A\2)*2 

1670 PUTSPRITES,(A,182),1,1 

1680 SOUND0,123 

1690 SOUND7,31 

1700 SOUNDS ,8 

1710 FORJ=220TG0STEP~i 

1720 IFJ M0D4 >2THENS0UND8,0ELSESOUND8 

,8 

1730 PUTSPRITE11.<J,173),11,11 


1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 


PUTSPRITE12,(J,173),13,12 
IF J=< A+16THEN1760ELSE1770 
PUTSPRITES,(J-16,181),1,1 
NEXT 

SOUND0,147 
S0UND7,31 
SOUNDS,8 
FORJ=0TO220 

IF3MOD4< 2THENS0UND8,0ELSEBOUND8 

PUTSPRITE11,(J,173),11,11 
PUT SPRITE 12,(J,173),13,12 
NEXT 

SOUNDS,0 
A“256:GOTO 900 

Einde epel ######*### 
PSET(10,16):PRINT#1,"EINDE" 

IFSTRIG(0)=0GOTO1900 
IFSTRIG(0)GOTO1910 
COLOR 4 


1930 PSET (56,0) :PRINT#1, "HB 
1940 PSET (56, 8) s PRINT#1, 

1950 PSET (10, 16) : PRINT#! , "SnH" 
1960 COLOR 15:Z=0:K=0:GOTO 880 
1970 X=0 

1980 FOR 1=1 TO LEN(A^) 

1990 PSET(X+6*I+15,8#Y),4 
2000 PRINT#1,MI(A$,I,i) 

2010 IF IMOD37=0 THEN X=X-222:Y=Y+1 
2020 FOR J=0 TO 50:NEXT:NEXT 
2030 RETURN 


CONTROLETELLINS 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


10 - 

58 

20 - 

58 

30 - 

58 

40 - 

58 

50 - 

58 

60 - 

58 

70 - 

58 

80 - 

5 

90 - 

241 

100 - 

213 

110 - 

1 

120 - 

248 

130 - 

164 

HO - 

84 

150 - 

12 

160 - 

174 

170 - 

15 

180 - 

59 

190 - 

20 

200 - 

178 

210 - 

23 

220 - 

85 

230 - 

106 

240 - 

23 

250 - 

202 

260 - 

187 

270 - 

159 

280 - 

213 

290 - 

80 

300 - 

B 

310 - 

177 

320 - 

12 

330 - 

207 

340 - 

254 

350 * 

21 

360 - 

173 

370 - 

37 

380 - 

16 

390 - 

232 

400 - 

17 

410 - 

164 

420 - 

20 

430 - 

85 

440 - 

23 

450 - 

71 

460 - 

197 

470 - 

191 

480 - 

240 

490 - 

54 

500 - 

25 

510 - 

133 

520 - 

58 


Regel: 530 - 58 
Regel: 540 - 58 
Regel: 550 - 205 
Regel: 560 - 159 
Regel: 570 - 108 
Regel : 580 - 54 
Regel: 590 - 128 
Regel: 600 - 147 
Regel: 610 - 96 
Regel: 620 - 22 
Regel: 630 - 66 
Regel: 640 - 19 
Regel: 650 - 163 
Regel: 660 - 212 
Regel: 670 - 216 
Regel: 680 - 204 
Regel: 690 - 243 
Regel: 700 - 8 

Regel; 710 - 151 
Regel: 720 - 140 
Regel: 730 - 17 
Regel: 740 - 91 
Regel : 750 - 22 
Regel: 760 - 250 
Regel: 770 - 86 
Regel: 780 - 71 
Regel: 790 - 139 
Regel: 800 * 68 
Regel: 810 - 209 
Regel: 820 - 190 
Regel : 830 - 247 
Regel: 840 - 249 
Regel: 850 - 176 
Regel: 860 ~ 180 
Regel: 870 - 58 
Regel: 880 - 58 
Reqel: 890 - 58 
Regel: 900 - 224 
Rege): 910 - 17 
Regel: 920 - 214 
Regel: 930 - 15 
Regel: 940 - 92 
Regel: 950 * 78 
Regel: 960 - 62 
Regel: 970 - 98 
Regel: 980 - 219 
Regel: 990 - 122 
Regel: 1000 - 188 
Regel: iOIO - 92 
Regel : 1020 - 152 
Regel: 1030 - 242 
Regel : 1040 - 81 
Regel: 1050 - 251 


Regel: 1060 - 30 
Regel; 1070 - 213 
Regel: 1080 - 152 
Regel: 1090 - 68 
Regel: 1100 - 142 
Regel: 1110 - 5 
Regel: 1120 - 69 
Regel: 1130 - it 
Regel: 1140 - 45 
Regel: 1150 • 16 
Regel: 1160 - 40 
Regel: 1170 - 198 
Regel: 1180 - 53 
Regel: 1190 > 184 
Regel: 1200 - 186 
Regel: 1210 - 180 
Regel: 1220 - 28 
Regel: 1230 - 189 
Regel: 1240 - 58 
Regel: 1250 - 37 
Regel: 1260 ~ 54 
Regel: 1270 - 39 
Regel: 1280 - 182 
Regel: 1290 - 26 
Regel: 1300 - 122 
Regel: 1310 - 61 
Regel: 1320 - 129 
Regel: 1330 - 132 
Regel: 1340 - 10 
Regel: 1350 - 224 
Regel: 1360 - 131 
Regel: 1370 - 30 
Regel: 1380 - 58 
Regel: 1390 - 136 
Regel: 1400 - 32 
Regel: 1410 - 54 
Regel: 1420 - 166 
Regel: 1430 - 89 
Regel: 1440 - 50 
Regel: 1450 - 153 
Regel: 1460 - 192 
Regel: 1470 - 199 
Regel: 1480 - 146 
Regel: 1490 - 77 
Regel: 1500 - 62 
Regel: 1510 - 134 
Regel: 1520 - 63 
Regel: 1530 - 100 
Regel: 1540 - 58 
Regel: 1550 - 62 
Reqel: 1560 - 32 
Reg eh 1570 - 54 
Regel: 1580 - 136 
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Regel; 1590 - 33 
Regel; 1600 - 58 
Regel; 1610 - 210 
Regel; 1620 - 89 
Regel; 1630 - 219 
Regel: 1640 - 23 
Regel: 1650 - 58 
Regel: 1660 - 215 
Regel: 1670 - 187 
Regel: 1680 - 139 
Regel: 1690 - 54 
Regel; 1700 - 34 
Regel; 1710 - 112 
Regel: 1720 - 215 
Regel: 1730 - 207 
Regel: 1740 - 211 


Regel: 1750 - 172 
Regel: 1760 - 212 
Regel; 1770 - 131 
Regel: 1780 - 163 
Regel: 1790 - 54 
Regel: 1800 * 34 
Regel: 1810 - 144 
Regel: 1820 - 217 
Regel: 1830 - 207 
Regel: 1840 - 19 
Regel: 1850 
Regel: 1860 - 26 
Regel: 1870 - 197 
Regel: 1880 - 58 
Regel: 1890 - 76 


Regel: 1900 - 153 
Regel: 1910 - 163 
Regel: 1920 - 242 
Regel: 1930 - 81 
Regel: 1940 - B9 
Regel: 1950 - 46 
Regel: 1960 - 120 
Regel: 1970 - 88 
Regel: 1980 - 76 
Regel: 1990 - 144 
Regel: 2000 - 221 
Regel: 2010 - 153 
Regel: 2020 - 192 
Regel: 2030 - 142 
Totaal: 22998 


Dit was fout. 


FOUT IN DE SPRITE EDITOR 


In het programma 'Sprite editor” uit MSX 
Gids nr.3 zit een behoorlijke fout. Deze 
fout komt pas tevoorschijn wanneer in de 
weg te schrijven string CHR$(0), CHR$(I3) 
of CHR$(26) voorkomt. Zolang dit niet 
gebeurt loopt alles schijnbaar perfect. 
Het is dan ook stora toeval dat we niets 
hebben gemerkt, ondanks het feit dat we 
deze editor voor vrijwel alle sprites 
hebben gebruikt die in de afgelopen 
nummers zijn geplaatst. 

Wanneer de volgende regels in het 
programme worden veranderd en/of toege- 
voegd loopt verder alles weer gesmeerd. 
Wei is het inlezen c.q. wegschrijven van 
de sprites flink wat trager geworden. 

3070 PRINT#1 S NA*(I) 

3071 IF 1=0 THEN 3076 

3072 FOR 3 = 1 TO 8 

3073 XX=ABC(MID*(A*(I),3 ? 1>) 

3074 PR3NT#1XX s NEXT 
3076 NEXT 

3080 FOR 1=0 TO 63 

3090 PRINT#1 s NZ *(I) 

3091 IF 1=0 THEN 3096 

3092 FOR 3=1 TO 32 

3093 XX=ASC(MID*(Z*(I),3,1)) 

3094 PRINT#1,XX:NEXT 
3096 NEXT 


4065 Ai(I) = M " 

4070 INPUT#1,NA*(I) 

4071 IF 1=0 THEN 4076 

4072 FOR 3=1 TO 8sINPUT#1,XX 
4074 A* <I)=A* <I)+CHR*(XX)s NEXT 
4076 NEXT 

4080 FOR 1=0 TO 63 
4085 Z*(I>= ,,H 

4090 INPUT#1,NZ*(I> 

4091 IF 1=0 THEN 4096 

4092 FOR 3 = 1 TO 32s INPUT#1,XX 
4094 Z*(I)=Z*(I)+CHR*(XX)s NEXT 
4096 NEXT 


SPRITE EDITOR OP DISKETTE 


Om de sprite editor geschikt te maken voor 
gebruik met een diskdrive dienen slechts 2 
regels gewijzigd te worden en wel als 
volgt: 

3050 OPEN "A: SPRITE "FOR OUTPUT AS//1 
4050 OPEN "A: SPRITE "FOR INPUT AS//1 


TERIJG NAAR GIDS NR. 5 

Het diskdrive programma 'CATALOG' uit Gids 
nr.5 werkt niet met alle MSX-computers. Op 
o.a. de XPRESS en de PHILIPS MSX-2 worden 
de files niet zichtbaar gemaakt. Met 
onderstaande veranderingen loopt het 
programma nu op alle MSX computers, zowel 
MSX-1 als MSX-2. 

50 IX=PEEK(&HF351)+256*PE£K(&HF352) 

80 FOR I=IX TO IX+511 STEP 32: IF PEEK(I) 
<32 OR PEEK(I)>127 THEN 120 

LAMPJE BIJ HET VERLATEN KERKH0F 


Door een fout in de tekenset van onze 
printer komt het teken, bedoeld voor de 
raagische lamp, niet duidelijk over in de 
listing op pagina 7. Het teken in regel 
5640 wordt verkregen door de letter z 
samen met de GRAPH toets op te geven. Een 
fout teken geeft geen foutmelding tijdens 
het spelen, maar er ontbreekt natuurlijk 
wel een speleleraent. 


CASSETTES 


De programme's uit de MSX-Gids zijn ook op cassette 
leverbaar. 

Cassette nr. 3 bevat alle programma's van Gids nr. 3 
plus een complete 'STUNTVOGEL' waarin de velden 
7, 8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programma's uit de MSX-Gids 
nr. 4, cassette nr. 5 uit Gids nr. 5, enz. f enz. 


per stuk (incl. verzend- 


De cassettes kosten f 15.— 
kosten). 

Voor Belgie is de prijs Bfr. 280,—. 

Giro: 909515 t.n.v. A. Debels, Amsterdam. 

Voor Belgie: Rek.nr. 235-0430464-87 bfj de Generale 
Bankmij. te Hasselt t.n.v. J. Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer te vermelden ! 

HAAST? . . . Haal de cassette dan zelf bij: MSX SOFT- 
SHOP, Vespuccistraat 48, 1056 SM Amsterdam. Bij de 
Softs hop is ALLEEN DE LAATSTE cassette verkrijg- 
baar!!! 


umor 























Werkwoorden verleden tijd. 

Korte beschrijving 


Voordat de eerste leerling kan beginnen, moet de 
leerkracht de volgende gegevens invoeren; 

- Het santal leerllngen dat met het programme gaat 
werken. 

- Het aantal oefeningen dat ieder kind moet maken. 

Hierna wordt gemeld, dat de uitslag desgewenst voor- 
tijdig verkregen kan worden, door -voordat een 
volgende leerling begint- op funktietoets F6 te 
drukken. 

De eerste leerling kan nu beginnen. 

Na het intoetsen van de naam wordt de leerling 
welknm geheten. De leerling maq nu kiezen tussen: 1) 
uitleg over verleden tijd en 2} direkt beginnen. 

Kiest het kind voor uitleg, dan worden de regels be- 
treffende werkwoorden in de verleden tijd kort 
uitgelegd, Desgewenst met een korte oefening met 
betrekking tot het bepalen van de stam. 

Hierna begint het eigenlijke spel. Na een beknopte 
uitleg ziet het kind een korte zin waarin het 
werkwoord is weggelaten. In vakjes staan 3 
alternatieven. Met een vogeltje moet naar het goede 
werkwoord worden gevlogen. Het vogeltje kan bestuurd 
worden met de cursor-toetsen en kan alle kanten op 
vliegen (ook schuin, door twee toetsen tegelijk in 
te drukken). De vogel reageert zodra een vakje met 
een werkwoord geraakt wordt. Als de vogel naar het 
juiste werkwoord gevlogen is, vliegt de vogel schuin 
naar boven, klinkt er een muziekje en verschijnt er 
(als een lichtkrant) een paar maal 'goed' in het 
beeId, gevolgd door een steeds wisselende belonende 
opmerking (er zijn zeven verschillende opmerkingen). 
Onderin het beeld wordt, door middel van een hartje, 
aangegeven hoeveel keer er al het juiste antwoord is 
gegeven en bovenin staat de juist gevormde zin. 


Ms de leerling de vogel naar een verkeero werkwoord 
laat vliegen, valt de vogel naar beneden terwijl het 
beeld aan en uit flitst. Vervolgens wordt het juiste 
antwoord getoond, terwijl tevens wordt vermeld weIke 
regel gehanteerd had moeten worden; dit met ge- 
bruikmaking van de persoonsvorm. 

Als de leerling klaar is, krijgt het kind de eigen 
uitslag te zien. Hierna moet het volgende kind 
geroepen worden, behalve als het kind de laatste in 
de rij was. In dat geval moet de leerkracht geroepen 
worden. Door het code-woord in te tikken -nadat de 
laatste leerling is geweest of na onderbreking van 
het programma met F6- krijgt de leerkracht de 
uitslag van alle leerlingen te zien. Desgewenst kan 
het programma opnieuw gestart worden. 

HET C0DEW00RD IS 'UITSLAG’. 

In het geheugen van de computer zitten 55 
oefeningen. Per leerling kunnen er maximaal 20 
gedaan worden. Bij herhaling van het programme is de 
kans groot dat (een grant deel vanj de oefening 
nieuw zal zijn voor het kind. 

Peter van de Aar. 


WERKWOORDEN TEGENW00RDIGE TIJD. 


Dit programma is qua vorm vrijwel identiek aan het 
bovenstaande programma en derhalve minder interes- 
sant voor publicatie. Voor scholen en leerkrachten 
die ook voor dit programma belangstelling hebben is, 
met toestemming van de maker, dit programma wel op 
onze cassettes en diskettes overgenomen. 

Alfred Debels. 
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sli Olt Jv %l - yu J,« ^lp »l 1 ■ |JL- df yLp hJ* lip *frji Jlp Jy. Jjj. iit J- mKm 

HP ^V< qp Jjp: hS 

t * 

t werkwoorden # 

# verleden tijd t 

t t 

# dit programma overhoort * 

t (in meerkeuze-vorm) t 

# en gee-ft desgewenst voora-f * 

# een korte uitleg # 

% % 

'A* ^ iJLr ULr ^ U,i iX 1 ■jAr ^ ^ ^JL> Jj- ,L> ^ tii Ap ^p 

* * * * *p * m ^p t *1* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ f ^ 

% % 

% Door: Peter van der Aar % 

$ $ 

# <c)19B6 MSX-Gids Amsterdam % 

% % 

yL* iXr ■ Jb Ub t|r Ulf xju" iiJbp luLf yU' ^Lp OLp felb- ^p yip ndL> yjLp Jj- Jlp -JUp JLi Uu> «JLg *JLp |U aU 

"I* Hr* ^ T" 'P' *|P TP" H™ rp 



CLEAR1000:CLS s SOTO270 

KEYOFF:DNERRORGOTD4450:FORAA=1TO10s KEYAA,"":NEXTs POKE&HFBB1,1 
DPEN"grp:"F0R0UTPUTA8#1 

CA$-" T230S10M15000L2O3F+G+A+F+F+G+A+F+A+B04C+1R1603A+B04C+1R32L4C+D+C 


+03BA+2F+2L404C+D+C+03BA+2F+2L2F+C+F+1F+C+F+1” 

230 RETURN 
240 11 

250 ■' msx-gids 

260 ? 

270 GOSUB200 

280 SCREENS:COLOR14,5,8 

290 FORAA=10TO505TEP5s FORAB^10TO70STEP4:AC=AA-5:AD=AC/2.5 
300 LINE(AC,AD)-(AD,AC),15:LINE(AA,AB)-(AB,AA>,15:NEXTAB,AA 
310 PLAYCA^ 


320 FORAA=100TO175STEP15 

330 CIRCLE(AA,50),20,,,,1.4:PAINT(AA,50),14:NEXTAA 
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340 FORAA=120TO225STEP15 

350 CIRCLE<AA,100),20,11,,,1.4s PAINT<AA,100),11s NEXTAA 
360 FDRAA=140TO215STEP15 

370 CIRCLE(AA,150),20,,,,1.4:PAINT < AA,150),14:NEXTAA 
380 PRESET<108,50):C0L0R4:PRINT#1,"MSX GIDS" 

390 PRESET<122,100)SPRINT#1,"POSTBUS 10252" 

400 PRESET <143,150):PRINT#1,"AMSTERDAM" 

410 PRESET<10,170):COLOR15:PRINT#1,"Copyright 1986" 

420 FORAB^lTO2000:NEXT 
430 p 

440 * inlei ding 

450 ’ 

460 CLS:SCREEN0:C0L0R15,4,4:LOCATES,1sPRINT"Dit is het programma":PRINT:P 
RI NTTAB < 11) " 11 ver I eden t i j d ' " 

470 PR I NTT AB <6) "======================:===>• 

480 DEFUSR1=342:U—USR1< 0) 

490 L0CATE2,8 

500 PRINT"Hoeveel leerlingen gaan er nu met":PRINT:PRINT" dit programma 
werken <max. 20)":L0CATE33,10:IL=2:GOSUB3520:B=VAL<C$) 

510 IFB<1ORB>20THEN490 
520 DIME* <B),S(B) 

530 L0CATE2,13 

540 PRINT"Hoeveel oefeningen moet elke":PRINT:PRINT" leerling doen (max. 

20)":L0CATE33,15:GOSUB3520:K=VAL<C*) 

550 IFK<1ORK >20THEN530 

560 CLSSPRINT"Even controlerenPRINT:PRINT 
570 PRINT"Aantal 1eer1ingen:"B • 

580 PRINT:PRINT"Aantal oefeningen:"K 
590 PRINT:PRINT:PRINT"K1opt dit ? <j/n>" 

600 C*=INKEY* 

610 IFC*="j"ORC*="J"THEN640 

620 IFC*="n"ORC*="N"THENCLEAR1000:GOSUB200 s GOTO460 
630 GOTO600 

640 LOCATE0,13:PRINT"U kunt de uitslag voortijdig krijgen":PRINT"door <vo 
ordat een volgende 1eer1ing":PRINT"zou beginnen) op funktietoets 6 te":PR 
INT"drukken. "TAB < 17) "-" 

650 PRINT:PRINT:PRINT''Als U nu op ’SELECT' druktPRINT:PRINT"kan de eer 
ste leerling beginnen." 

660 C*=INKEY*:AA=RND <1) 

670 IFC*=CHR* < 24)THEN710ELSE660 
680 ’ 

690 ' tt% hoofdprogramma leerling 

700 ’ 

710 F0RD=1T0B 

720 SCREEN0:COLOR15,4,4 

730 CLS:LOCATE 1,5:PRINT"Hoe heet je ?":L0CATE1,10:PRINT"<Maximaal 12 lett 
ers! ) "-.LOCATE 15,5: IL=12: G0BUB361" 

740 IFA$=""THEN730 
750 AA™ASC < MID$(A$,1,1)) 

760 IFAA >96ANDAA<123THENAA=AA-32 
770 MID*<A$,1,1)=CHR$(AA) 

780 ’ 

790 ’ lijntjes en welkom 

800 ’ 

810 SCREEN2:COLOR15,4,9 
820 PLAYCA* 

830 FORAA=0TO150STEP6 
840 FORAB—0TO10STEP5 
850 AC=AA“10:AD=AA/5 
860 LINE<AC,AD)-<AD,AC),11 
870 LINE <AA,AB) — <AB,AA),11 
880 NEXTAB 
890 NEXTAA 

900 PRESET<150,20):PRINT#1,"Dag, PRESET<150,30):PRINT#1,AS"." 

910 PRESET<120,50)SPRINT#1,"We gaan nu met":PRESET<120,60):PRINT#1,"werkw 
oorden in de":PRESET<120,70):PRINT#1,"verleden tijdPRESET<120,80):PRINT 
1 ji 11 spol en m 

920 PRESET<80,110)sPRINT#l,"Wat wi1 je?":PRESET<80,120):PRINT#11) Uitle 
g over":PRESET<80,130):PRINT#1," verleden tijd.":PRESET <80,145):PRINT#1 
,"2) Gelijk beginnen." 

930 FORAA^1T01000:NEXT:DEFUSR1=342:U=USR1<0) 

940 PRESET(40,180):PRINT#1,"TIK 1 OF 2." 

950 C$=INKEY* 

960 IFC*="1"THEN1020 
970 IFC*="2"THEN2200 
980 GOTO950 
990 7 

1000 ’ %%% uitleg 
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1010 ' 

1020 SCREEN0:CLB s PRINT:PRINT M Let op, "A# 

1030 PRINT:PRINT"Weet je wat de"sPRINT;PRINT" STAM":PRINT;PRINT"van ee 
n werkwoord is? (j/n)" 

1040 DEFUSR1-342;U=U8R1(0) 

1050 C#=INKEY# 

1060 I FC#= " J " ORC#-" j " THEN 1310 
1070 I FC#= '*N 11 ORC#— " n " THEN 1120 
1080 GOTO1050 
1090 51 

1100 9 *** uitleg BTAM 

1110 ? 

1120 PRINT;PRINT;PRINT”De stam van een werkwoord is":PRINT:PRINT"de IK-vo 
rm." 

1130 PRINT:PRINT:PRINT n Bijvoorbeeld het werkwoord ? LOPENPRINT 
1140 PRINT"Je zegt "ik LOOPPRINT; PRINT "de stam is dus "LOOP*." 

1150 FORAA=1TO500;NEXT;DEFUSR1=342:U=USR1(0) 

1160 PRINT:PRINT:PRINTTAB(20)“Druk op SELECT." 

1170 C#=INKEY#:IFC#=CHR#(24)THEN1180ELSE1170 

1180 CLS: PRINT”We gaan dit even oe-fenen. Je z i et": PRINT: PRINT''hi eronder e 
en werkwoord.PRINT:PRINT"Jij moet de STAM tikken.": 

1190 RESTORE4510:F0RAA=1T04 
1200 READEA#,EB# 

1210 LOCATE0,9:PRINT"Het werkwoord is: "EA# 

1220 PRINT:PRINT"Wat is de stam ?" 

1230 LOCATE17,11;IL=9;GOSUB3700 
1240 IFEZ#=""THEN1210 

1250 IFEZ#=EB#THENPRINT:F0RAB=1TG5:PRINT"G0ED GOED GOED GOED GOED 
”:NEXT:FORAB—1TO1000s NEXT:CLSELSEPRINT:PRINT"Dit is niet goed,":PRINT"pro 
beer het nog eens";PRINT;PRINT"Wat is de IK-vorm ?":LOCATE20,i6:GOSUB3700 
:GOTO1250 
1260 NEXTAA 

1270 CLS:PRINT"Ik denk dat je het nu wel":PRINT:PRINT"begrepen hebt. H :PRI 
NTs PRINT:PRINT"We gaan verder." 

1280 ? 

1290 9 ttt uitleg regels v.t. 

1300 9 

1310 LOCATE0,11:PRINT”A1s je werkwoorden in de verleden":PRINT:PRINT"tijd 
gebruikt, heb je vaak de"SPRINT:PRINT"stam nodig, maar niet altijd!" 

1320 F0RAA=1TO1000:NEXT:DEFUSR1-342:U-USR1(0) 

1330 LOCATE12,22:PRINT"Druk op SELECT" 

1340 C#=INKEY#: !FC#=CHR#(24)THEN1350ELSE1340 
1350 CLS 


1360 PRINT"Er zijn STERKE en zwakke”:PRINT"werkwoorden." 

1370 PRINT: PR I NT "STERKE werkwoorden zijn zo STERK, " SPRINT "dat ze zichzel-f 
kunnen"s PRINT"veranderen." 


1380 PRINT:PRINT:PRINT"Een paar voorbeeldjes:PRINT:PRINT" r 

ti » 


I 


1390 PRINT* j tegenw. tijd"T^B<17)"I verleden tijd"TAB(34)"j" 

Ikloop"TAB(17)" 

Wij kregen"TAB(34)" 


1400 PRINT" 
1410 PRINT" 
1420 PRINT" 
1430 PRINT" 
1440 PRINT" 


"I Ik 1 1iep"TAB(34)" i" 

Wij krijgen"TAB(17)"i Wij kregen"TAB(3 
Zij mag"TAB(17)"j Zij mocht"TAB(34)"I" ! 

Jullie zitten"TAB(17)"j Jullie zaten*TAB(34) 




I" 


PRINT" 



-* ":PRINT;PRINT"Sterke werkwoorden zijn 1astig,":PRINT"want je moet 

weten hoe ze klinken"sPRINT"in de verleden tijd.” 

1450 FORAA-1TO1000:NEXT:DEFUSR1=342:U^USRl(0) 

1460 PRINTTAB(20)"Druk op SELECT." 

1470 C#=INKEY#:IFC#=CHR#(24)THEN1480ELSE1470 
1480 CLS 

1490 PRINT"ZWAKKE werkwoorden kunnen zichzelt":PRINT"niet veranderen.":PR 
INT"We moeten ze helpen!":PRINT 

1500 PRINT "Dat kan door ACHTER DE STAM": PRINT"-te <n) o-f -de(n) te ze 
11 p* n 11 

1510* PRINT: PRINT" Achter de stam komt -te o-f -de" : PRINT"al s het over ££ 
n mens, dier, " : PRINT "pi ant o-f ding gaat. " 

1520 PRINT: PRINT" Ach ter de stam komt -ten o-f -den": PRINT"al s het over m 
eer mensen , di eren " : PR I NT "pi anten o-f dingen gaat.” 

1530 PRINT: PRINT: PR I NT "LET OP: ": PRINT: PRINT" A1 s de stam op een t o-f een d 
":PRINT"eindigt, zetten we er TOCH -te(n)":PRINT"of -de(n) achter!!!!!" 

1540 FORAA=lTO!000:NEXTs DEFUSR1=342:U=USR1(0) 

1550 PRINT:PRINTTAB(20)"Druk op SELECT" 

1560 C#=INKEY#:IFC#=CHR$(24)THEN1570ELSE1560 
1570 CLB 

1580 PRINT"Een paar voorbeeldjes:PRINT:PRINT” ,- 

_ _ _ _ ^ it { 

1590'PRINT"| tegenw. jd"TAB(17)"j verladen tijd”TAB<34)"j"sPRINT" j- 
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1600 PRINT" 
1610 PRINT" 
1620 PRINT" 
1630 PRINT" 
1640 PRINT" 
1650 PRINT" 

_i •* 




Ik r l en"TAB(17) " 
Jullie fietsen 
Zij kent"TAB 
Wij raden"TAB(17 
Zij wacht"TAB(17)" 

i 


7 )") Ik rende"TAB<34)"I" 

?n"TAB(17) " | Jullie fi4tsten" 
(17)"I Zij kende"TAB(34)"I" 
)*t Wij raadden"TAB(34)" 


TAB(34)" 


Wij raadden"TAB 
Zij wachtte"TAB(34) 


II 


II 


II 


If 


1660 PRINT:PRINT”DUS:" 

1670 PRINT; PRINT"Bi j zwakke werkwoorden ’te' of 9 de ' " : PRINT"achter de sta 
m als het over": PRINT"66n mens, dier, plant o-f ding gaat." 

1680 PRINT;PRINT"En ’’ten' of ? den' achter de stam";PRINT"als het of m£6r 
mensen, dieren,";PRINT"planten of dingen gaat." 

1690 F0RAA=1TO1000:NEXT;DEFUSR1=342:U=USR1(0) 

1700 PRINT:PRINTTAB(15)"Druk op SELECT." 

1710 C$=INKE Y*:IFC*=CHR$(24)THEN1720ELSE1710 
1720 SCREEN2:COLOR15,4,14 

1730 PRESET<10,10):PRINT#1,"Nu moet je alleen nog":PRESET<10,20):PRINT#1, 
"weten wanneer je 'te(n) sPRESET<10,30);PRINT#1,"en wanneer je 'de(n) 1 m 
oet";PRESET(10,40):PRINT#1,"gebruiken." 

1740 PSET(25,140); DRAW"C3U3L1U3L2U3L2U3L2U2R27U1R1U1R178D3L1D1L1D2L1D1L1D 
2L1D1L1D2L1D2L1D2L192";PAINT(40,130),3 

1750 PSET(19,119);DRAW"ClD7U2R206U2R1U2R1U2R1U1L23D1L2D2L140D1L1D1L1D1L2U 
2L20D2" 


1760 F0RAA=41T055STEP2:PSET(AA, 123) : NEXT 

1770 FORAA=67TO190STEP3;PSET(AA,121):PSET(AA,122);NEXT 

1780 F0RAA-75T0165STEP15;PSET(AA,118);DRAW"R10D1L1D1L1D1L1D1L4U1L1U1L1U1L 
1U1";PAINT(AA+5,120),15;NEXT -L. ; 

1790 PSET(82,117);DRAW"U1R1U1R1U1R40D3";PSET(140,117);DRAW"U3R30D5U7R21D7 

";FORAA=170TO18BSTEP2:PSET(AA, 114):PSET(AA,115);NEXT;LINE(102,112) — (92,92 

),1;DRAW"C1R14" ; LINE <106,92) — (116,112),1;LINE(96,98)-(108,9ffi=r l 

1800 LINE(144,112)-(134,92),1:DRAW"C1R14":LINE<148,92)-<158,112),1;LINE(1 

38,98)-<150,98),1:PSET(160,113);DRAW"U10R25D8";PAINT(161,110),15 

1810 LINE<170,102)-<169,72),14,BF:DRAW"C15L2D1L2D1L2D1L3D1R4U1R3U1R1D1R1” 

; LINE(171,73)-(228,116),14;LINE<171,73)-(179,103),14 

1820 PSET<135,96);DRAW"ClL3DlL4DlL2blLBU1L4U1L2U1L3";LINE <93,96)-(20,120) 
1830 FORAA s =lTO1000: NEXT 

1840 PRESET(10,145);PRINT#1,"Daarvoor gebruik 

">T KOFSCHIP.PRESET<50,170);PRINT#1,"Wat is 

0,182);PRINT#1,"Druk op SELECT." 

1850 DEFUSR1=342;U=USR1(0) 

C*=INKEY$:IFC*=CHR$(24)THEN1870ELSE1860 
cpoprcrKj i • rni np i *? . i i 

PRINTTAB(15)"■";PRINTTAB(15)"S":PRINTTAB(14) 


je";PRESET(30,155) 
dat nu weer ? ? ?" 


PRI NT#1, 
PRESET(7 


1860 

1870 

1880 

1890 


PRINT" 


:PRINT" VTAB(20) ’V 


II 


":PR INT " V T AB( 1 8) ''/":PR INT " 

1900 LOCATES,6;PRINT"'t kofschip" 


" : PR I NTT AB (14) 

;PRINT" V'TAB(19) 



1910 LOCATE0,10;PRINT"In 't kofschip zitten de":PRINT"volgende letters;": 
PRINTsPRINT" T K F S CH P":PRINT;PRINT"A1s een van deze letters"; 
PRINT"!n het midden van het hele":PRINT"werkwoord voorkomt, zetPRINT"je 
’-te£n) * achter de stam.PRINT 
1920 PRINT"Anders : ‘-de<n) t . 

1930 FORAA~1TO1000:NEXT:DEFUSR1=342;U=USR1(0) 

1940 PRINT:PRINTTAB(13)"Druk op SELECT" 

1950 C$=INKEY$;IFC*=CHR$(24)THEN1960ELSE1950 
1960 SCREEN0:C0L0R4,7,1 

1970 PRINT"Een paar voorbeeldjes:"sPRINT:PRINT;PRINT"In Machen' zit WEL 
een kofschip-";PRINT"1etter. Je zegt dus: ’Hij 1achte'.":PRINT 
1980 PRINT:PRINT"In ’rennen' zit BEEN kofschip-":PRINT"1etter. Je zegt du 
s: "Zij render ": PRINT 

1990 PRINT:PRINT"In ’1 even' zit GEEN kofschip-";PRINT"1etter. Je zegt dus 
: 'Wij 1eefden'.":PRINT 

2000 PRINT:PRINT"In ’zuchten* zit WEL een kofschip-":PRINT"!etter. Je zeg 
t dus: 'Ik zuchtte'.PRINT 

2010 PRINT:PRINT"In "raden' zit GEEN kofschip-":PRINT"1etter. Je zegt dus 
: ’Jij raadde % ,":PRINT 

2020 FORAA=1TO1000;NEXT:DEFUSR1=342;U=USR1(0) 

2030 PRINTTAB(10)"Druk op SELECT." 

2040 C*=INKEY$:IFC*=CHR*(24)THEN2050ELSE2040 
2050 SCREEN2:COLOR10,1,11s CLS 
2060 FQRAA=15T0175STEP20 

2070 PRESET(5,AA):DRAW"C11R2U1R1U1R9U2R1U2R1U1R1U1R1U1R3D2R1D1R2D1L2D1L1U 
1L2D1L1D3R1D3L1D3L1D3L2U3L1U2L7D2L1D3L2U6R1L1U2L1D1L1D1L1U1L1U1" 

2080 PAINT(20,AA),11 
2090 NEXTAA 

2100 PRESET<40,40);PRINT#1,"Je hebt nu de hele ui11 eg";PRESET<40,60);PRIN 
T#1,"gezien, "A*"," 
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2110 PRESET<40,90):PRINT#1,"Wat wi 1 je nu ?":PRESET<40,110):PRINT#1,"1) D 
e uitleg nog eens zien. H :PRESET<40,130);PRINT#1,"2) Beginnen."sPRESET<40, 
160)SPRINT#!,"TIK 1 OF 2. " 

2120 DEFUSR1=342:U=USR1< 0) 

2130 C*=INKEY* 

2140 IFC*="1"THEN1020 
2150 IFC*="2"THEN2200 
2160 GOTO2130 
2170 

2180 11 Overhoor-gedeelte 

2190 ? 

2200 SCREEN1s CLS:COLOR15,13,1 
2210 T=0 

2220 PRINT;PRINT"Je ziet dadelijk een"s PRINTs PRINT"zinnet je. Het werkwoor 
d is";PRINT:PRINT"weggelaten■ 

2230 PRINT:PRINT"Je ziet ook (in vakjes)PRINT:PRINT"drie werkwoorden st 
aan.":PRINT s PRINT"Er is er maar ££n goed." 

2240 PRINT:PRINT"VIieg met de vogel naar het":PRINT:PRINT"goede werkwoord 
."SPRINT:PRINT"Je kunt de vogel laten PRINT:PRINT"vliegen met de stuur- 
toetsen *" 


2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 


Druk op SELECT" 


FORAA=1TO1000:NE X T 
PRINT:PRINT"Veel succes 
DEFUSR=144:U=USR < 0) 

DEFUSR1=342:U=USR1<0> 

C*=INKEY*:IFC*=CHR*< 24)THEN2330ELSE2290 


### inlezen vogel-sprites 


CLS: 

FDRGA=1T04:SX *="”:FORBB=1TOS: 

GX*=GX*+CHR*<GC):NEXTGB 

SPRITE* <GA)=GX*sNEXTGA 

* 

? random-restore 

AA=CINT<RND<1>*9> 

IFAA=0THEN2400 

ONAAGOSUB3790,3800,3810,3820,3830,3840,3850,3860 
51 beeldopbouw en vliegen 


FORH=1TOK 
IFT=0THEN2490 

LOCATE0,19:PRINT"AANTAL GOED:":FDRAA=1T0T:PRINT"*";:NEXTAA 
READEA*,EB*,EC*,ED*,EF*,EG* 

LOCATE 17,7: PR I NT " r ---, LOCATE 17,8s PRINT" | 

j " : LOCATE 17,9: PR I NT " <-5—* " 

2510 110CATE17, 12: PRINT ",-. " : LOCATE 17, 13: PRINT" | 

_ * | 8 


j"s LOCATE 17,14:PR1NT"t 
2520 LOCATE17,17:PRINT " 


2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 


I":LOCATE 17,19:Pr[nT"l 


j":LOCATE 17,lSsPRINT"| 

”s PRINT:PRINTEA*" 


LOCATE0,1:PRINT"Dit is het zinnetjei 
L0CATE18,8:PRINTEC* 

L0CATE18,13:PRINTED* 
j OCATE18 1 R* PRTKITFEt- 

LOCATE1,22s PRINT"VIieg naar het goede woord." 
X=90:Y=60:HB=2 
HA=STICK<0)sIFHA=0THEN2690 
PUTSPRITE1, < X,Y),15,2+HB 
IFHA=1THENY=Y-2:GOTO2700 
IFHA=2THENY=Y-2:X = X+2s HB=2:GOTO2700 
IFHA=3THENX=X+2;HB=2:GOTO2700 
IFHA=4THENY=Y+2:X=X+2:HB=2:GOTO2700 
IFHA=5THENY=Y+2:GOTO2700 
IFHA=6THENY=Y+2:X=X-2:HB=0:GOTO2700 
IFHA=7THENX=X-2:HB=0:GOTO2700 
IFHA=8THENY=Y-2sX = X-2s HB=0:GOTO2700 
Y=Y+.5 
IFX<0THENX=0 
IF X >247THENX=247 
IFY<0THENY=0 
IFY >183THENY=183 
PUTSPRITE1,(X,Y),15,1+HB 
IF X >146ANDX < 244ANDY >52ANDY<73THEN2790 
IF X >146ANDX <244ANDY >92ANDY<113THEN2810 
IFX >146ANDX <244ANDY >132ANDY<153THEN2830 
BOTO2590 

IFEC*=EB*THENGOSUB3900ELSEGOSUB4i50 


II 
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2800 IFH=KTHEN2BB0ELSENEXTH 

2B10 IFED*=EB*THENGDSUB3900ELSEGOSUB4150 

2820 IFH=KTHEN2BB0ELSENEXTH 

2B30 IFEF*=EB*THENGOSUB3900ELSEGOSUB4150 

2B40 IFH“KTHEN2B80ELSENEXTH 

2850 •- 


2860 ’ *** kl aar 

2870 •' 

2BB0 SCREEN2:COLOR10,1,11:CLS:PLAYCA* 

2890 FORAA^ 5 15T0175STEP20 

2900 PRESET <5,AA):DRAW"C11R2U1R1U1R9U2R1U2R1U1R1U1R1U1R3D2R1D1R2D1L2D1L1U 
1L2D1L1D3R1D3L1D3L1D3L2U3L1U2L7D2L1D3L2U6R1L1U2L1D1L1D1L1U1L1U1" 

2910 PAINT(20,AA),11 
2920 NEXTAA 

2930 PRESET<40,10):PRINT#1,"Dit was het, "A*:PRESET <40,25)sPRINT#1,Me mo 
est N K"keer naar hetPRESET(40,40):PRINTttl,"goede woord vliegen." 

2940 PRESET (40, 60) :PRINT# 1, "Dat heb je”T ,, keer good 11 : PRESET (40,75) : PR I NT# 1 
,"gedaan." 

2950 IFD-BTHENPRESET(40,155):PRINT#1,"ROEP JE LEERKRACHT !!":GBTO2970 
2960 PRESET(40,155):PRINT#1,"Je mag de volgende roepen." 

2970 FORAA=1TO2500:NEXT 
2980 FORAA~0TO55 
2990 CIRCLE(128,96),AA,11 
3000 NEXTAA:COLOR1,11 
3010 FDRAA—40TO140STEP20 

3020 PRESET(70,AA):PRINT#1,"Druk op SELECT" 

3030 NEXTAA 

3040 COLOR10,1:PRESET <70,1B0):PRINT#1,"Druk op SELECT" 

3050 C*=INKEY*:IFC*=CHR*(24)THEN3060ELSE3050 


3060 B*(D)=A*:S(D)-T 
3070 NEXTD 
3080 ? 

3090 •' Einde van het programma 

3100 11 

3110 51 LET OP: Het codewoord is 


3120 ? ’uitslag' 

3130 '' 

3140 POKE&HFCAB, &H0: OUT 170, INP< 170)OR64 

3150 SCREEN0:COLOR15,4,4:CLS 

3160 PRINT:PRINT:PRINT"Tik het code-woord-" 


3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

(j/n) 

3360 


C*“INKEY*:IFC$=”u”THEN31B0ELSE3170 
COLOR0:LINEINPUTCB* 

IFCB$="itslag"THEN3200ELSE3140 
CLS:COLOR15 

PRINT"naam"TAB(14)"aantal goed":PRINT 
FGRD=iTGB 

PRINTB$(D)TAB(17)S(D) 

NEXTD 

PRINT"♦♦♦♦♦♦♦♦♦♦♦♦♦" 


L.OCATE24, 10 
LDCATE24,11 
LOCATE24,12 
L0CATE24^13 
L0CATE24,14 
LOCATE24,15 
L0CATE24;16 
L0CATE24,17 
L0CATE24,18 


PRINT"f 
PRINT"♦ 
PRINT"♦ 
PRINT"♦ 
PRI NT"♦ 
PRINT"♦ 
PRINT"♦ 


Gezien 


Dr u k d an 


op SELECT 


♦ " 
♦ " 
♦ " 
♦ " 


* 

it 

i < 

rT 

i-r 

i-r 

-rf 






PRINT"♦♦♦♦♦♦♦♦♦♦♦♦♦" 

C^=INKEYS:IFC$=CHR^(24)THEN3350EL5E3340 

CLS:LOCATE®,4:PRINT"Wi1t U de uitslag nog"SPRINT 

C^=INKEY* 


PRINT"eens z i en 




3370 IFCS—"j"DRC$~" J " THEN3200 
3380 IFC*= "n" ORC*= " N " THEN3400 
3390 GOTO3360 

3400 LOCATE0,10:PRINT"Moeten er nog meer 1eer1ingen":PRINT: F*RINT"met DIT 


programma werken ? (j/n) 

3410 C*=INKEY* 

3420 I FC*= " j " ORC-*= " J " THENCLEAR1000: GOSUB200: GOTO460 
3430 IFC*="n"ORC*="N”THEN3480 
3440 GOT03410 
3450 ’ 

3460 11 reset 

3470 =* 

3430 DEFUSR=0 s PRINTUSR < 0 ) 

3490 =* 

3500 ' i nvoer—rout i ne inlei ding 

3510 ’ 

3520 DEFUSR1=342:U=USR1(0):C*-"":AE~1:PRINTSTRING*(IL, 


32)STRING*(IL,29) 


M 
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3530 AX*=INPUT* <1):IFAX*=CHR*(13)THENPRINTSPACE*(IL-LEN(C*)):RETURN:ELBEI 

FAX*=CHR*(8)ORAX*=CHR*(29)THEN3550 

3540 IFAX*<CHR*<4B)ORAX*>CHR*(57)GOTO3530 

3550 IFAX*=CHR*< S)0RAX*=CHR*(29)THENAE=AE-1:IFAE=0THENAE=1:GOTO3530:ELSEC 
*=LEFT*(C*, AE-1):PRINTCHR*(29)” "CHR*(29);:GOTO3530 
3560 IFAE=IL+1GOTO3530 

3570 PRINTAX*;:AE=AE+1:C*=C*+AX*:6OTO3530 
3580 ’ ... • 

3590 * invoer-routine naam 

3600 " 

3610 POKE&HFCAB, &H0: OUT 170,INP(170) 0R64: DEFUSR1 =342: U=USR 1(0): A*= " 11 : KEY6, 
"Vs AE=1:PRINTSTRING*(IL,46)STRING* (IL,29); 

3620 AX*= INPUT* (1) : IFAX*="% ,, THEN3140: ELSEIFAX*=CHR* (13) THENPRINTSPACE* (IL 
-LEN(A*>):RETURN:ELSEIFAX*=CHR* <8)ORAX*=CHR*(29)GOTO3640 

3630 IFAX*<CHR*(32)ORAX*>CHR*(32)ANDAX*<CHR*(45)ORAX*>CHR*(45)ANDAX*<CHR* 
(65)ORAX*>CHR*(90)ANDAX*<CHR*(97)ORAX*>CHR*(122)GOTO3620 

3640 IFAX*=CHR*(B)ORAX*=CHR*(29)THENAE=AE-1:IFAE=0THENAE=1:GOTO3620:ELSEA 
*=LEFT* (A*, AE-1) : PR INTCHR* (29) n r lf CHR* < 29);: GOTO3620 
3650 IFAE=IL+1GOTO3620 

3660 PRINTAX*;:AE=AE+1:A*=A*+AX*:GOTO3620 
3670 *' 

3680 ? i nvoer-rout i np stam 

3690 ' 

3700 POKE&HFCAB, S<H0: OUT 170, INF (170) 0R64: DEFUSR 1 =342: U=USR 1 (0) : EZ*=‘*": AE= 1 
:PRINTSTRING*(IL,32 > BTRING*(IL,29); 

3710 AX*=INPUT*(1):IFAX*=CHR*(13)THENPRINTSPACE*(IL-LEN(EZ*)):RETURN:ELSE 

IFAX*=CHR*(8)ORAX*=CHR*(29)THEN3730 

3720 IFAX*<CHR* (97)ORAX*>CHR*(122)G0T03710 

3730 IFAX*=CHR*(8)ORAX*=CHR* < 29)THENAE=AE-1;IFAE=0THENAE=1:G0T03710:ELSEE 
Z*=LEFT*(EZ*,AE-l) : PR I NTCHR* (29) " "CHR*(29) ; :GOTO3710 
3740 IFAE=IL+1GOTO3710 

3750 PRINTAX*;:AE=AE+1:EZ*=EZ*+AX*:GOTO3710 

3760 ? 

3770 * random-restore 

3780 ' 

3790 RESTORE4620:RETURN 
3800 RESTORE4670:RETURN 
3810 RESTORE4720:RETURN 
3820 RESTORE4770;RETURN 
3830 RESTORE4B20:RETURN 
3840 RESTORE4870:RETURN 
3850 RESTORE4920:RETURN 
3860 RESTORE4970:RETURN 
3870 * 

3880 * ### sub-routine goed 

3890 ’ 

3900 LOCATE0, 1: FORAA=1TO20: PRINT’* 11 ; : NEXTAA: LOCATELEN (EA*) , 3: PRINT" "EB* M 

H 

3910 LOCATE18,8:PRINT" ”:L0CATE18,13:PRINT" ":L0CATE18, 

18:PRINT" 

3920 T=T+1 

3930 LOCATE0, 19: PRINT" AANTAL GOED: " : FORAA=lTOT: PRINT"V" *, s NEXTAA 
3940 X=X+2:Y=Y-2: F’UTSPRITEl, <X,Y),15,3:PUTSPRITE1, (X+l ,Y-1),15,4 
3950 IFX >2550RY<-10THEN3960ELSE3940 

3960 PUTSPRITE1,(X,Y),0:C*=”GOED GOED GOED GOED 
3970 PLAY”S9M345607L6CDEAGE” 

3980 F0RAA=1TOLEN(C*) 

3990 LDCATE8,10:PRINTMID*(C*,AA,14) 

4000 F0RAB=ltQ25:NEXTAB,AA 

4010 LOCATE0,7 

4020 1=1+1:IF!>7THENI=1 

4030 IF1=1THENPRINT"Dat heb je goed":PRINT:PRINT M gedaan,":PRINT:PRINTA*". 

II 

4040 IFI=2THENPRINT"Prima,prima !!":PRINT:PRINT"Zo gaat":PRINT:PRINT"het 
goed,PRINT:PRINTA*"." 

4050 IFI=3THENPRINT"Heel goed,":PRINT:PRINTA*"•":PRINTsPRINT"Je hebt het" 
:PRINT:PRINT"begrepen . " 

4060 IFI=4THENPRINT"Zo gaat het":PRINT;PRINT"goedPRINT;PRINTA*".” 

4070 IFI=5THENPRINT ,, FANTASTISCH"SPRINT:PRINT"TE GEK":PRINT:PRINT"Het gaat 
":PRINT s PRINT"enorm goed !!" 

4080 IFI=6THENPRINT"Je bentPRINT:PRINT"geweldig,PRINT:PRINTA*"." 

4090 IFI=7THENPRINT"Het is nietPRINT:PRINT"te gel oven.PRINT:PRINT"Hel 
emaal goed,":PRINT:PRINTA*”." 

4100 F0RAA=1TO1500:NEXT 
4110 CLS:RETURN 
4120 ? 

4130 ? sub-routine tout 

4140 ? 
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4150 SOUND0,250:BOUND1,0 

4160 S0UND6,20 s S0UND7, 20:SOUND13,20 

4170 SOUND0,254:SOUND1,0s SOUNDS,11 

4180 FORAA=15TO0STEP-.05 

4190 SOUNDS,AA 

4200 NEXTAA 

4210 DEFUSR0 s =65: DEFUSR1=68:U=USR(0)s FQRAA=1T025:NEXT s U=USR1<0>:F0RAA=1T02 
5;NEXTs Y=Y+9:PUTSPRITE1, < X,Y),15,HB+2:IFY>1B3THEN4220ELSE4210 
4220 CLSsPUTSF'RITEl, (10, 10) ,0 

4230 PRINT:PRINT"FOUT, "A*:PRINT:PRINT" Het goede antwoord":PRINT!PRINT"mo 

est zijn:":PRINT 

4240 FORAA=255TO0STEP-1 

4250 SOUND0,AA 

4260 SOUND1,0 

4270 SOUNDS’ 10 

4280 NEXTAA 

4290 PRINTEA*" "EB* 

4300 LOCATE0,10 

4310 IFEG*="S>"THENPRINT"Dit was een STERK werkwoord."sPRINT:PRINT"Dat bet 
ekent dat de klank":PRINT!PRINT"verandert." 

4320 I FEG*= " # " THENPR I NT " * " E A* " ' is ££n " s PRINT"mens, dier, plant of ding." 
s PR I NT "In het midden van het hel e" : PRINT "werkwoord staat GEEN":PRINT"kofs 
chip-letter.PRINT:PRINT"Achter de stam"sPRINT"komt dus: ? -dB , . M 

4330 IFEG*="*"THENPRINT 11 * "EA*" 1 zijn"sPRINT"meer mensen of dingen."sPRINT 
"In het midden van het hel e" : PRINT" wer kwoord staat SEEN" s PRINT "k o-f sc hi p-1 
etter.PRINT;PRINT"Achter de stam":PRINT"kDmt dus: ? -den 1 ." 

4340 IFEG$="y."THENPRINT" * "EA*"' is d£n":PRINT"mens, dier, plant of ding." 
sPRINT"In het midden van het hele"sPRINT"werkwoord staat WEL een":PRINT"k 
ofschip-1etter.PRINT:PRINT"Achter de stam":PRINT"komt dus: 

4350 IFEG*="&"THENPRINT" =* "EA*" ' zi jn" s PRINT"meer mensen of di ngenPRINT 
"In het midden van het hele":PRINT"werkwoord staat WEL een":PRINT"kofschi 
p-1etterPRINT:PRINT"Achter de stam":PRINT"komt dus: ’-ten'." 

4360 LOCATE0,20:PRINT"Volgende keer beter." 

4370 DEFUSR1=342:U=USR1(0) 

4380 PRINTs PRINTTAB <13)"Druk op SELECT" 

4390 C*=INKEY*:IFC*=CHR*<24)THEN4400ELSE4390 
4400 DEFUSR=144:U=USR(0) 

4410 CLS:RETURN 
4420 11 

4430 ? *** fout-afhandeling 

4440 11 

4450 IFERL< 710THENRUNELSECLSs SCREEN0s COLOR15,4,4 s PRI NT"Fout"ERR"in regel" 
ERL"."sPRINT:PRINT"Roep je 1eerkracht!":PRINT :PRINT"Vi a "ESC 1 terug in he 
t pr ogr amma":C*=INKEY*:IFC*=CHR*(27)THENRESUMEELSE4450 
4460 ? 

4470 9 #** Data 
4480 ? 

4490 ? Data stam-oefenen 

4500 * 

4510 DATA1achen, 1 ach,1ezen,1ees,rusten,rust,antwoorden,antwoord 
4520 *' 

4530 * Data vogeltje 

4540 * 

4550 DATA7,14,28,121,254,57,0,0 
4560 DATA0,0,0,121,254,57,28,14 
4570 DATA224,112,56,158,127,156,0,0 
4580 DATA0,0,0,158,127,156,56,112' 

4590 ? 

4600 ? Data werkwoorden 

4610 ? 

4620 DATADe fotograaf,vergoedde,vergoette,vergoedde,vergoede,# 

4630 DATADe auto, reed, reet, reedt, reed, 5) 

4640 DATADe hond, kloof , kloof , kluif te, kltiif de s S) 

4650 DATAMijn moeder , zuchtte, zuchte, z uchten, zuchtte, 7. 

4660 DATADe smid,smeedde,smede,smeedde,smeede,# 

4670 DATAOnze handen,raakten,raakte,raakten,rakten,& 

4680 DATAA11e kranten,vermeldden,vermeldde,vermolden,vermeldden,* 

4690 DATAOnze cl ub, ver 1 oor, ver 1 i este, ver 1 i esde, ver 1 oor , 5) 

4700 DATAIk, 1 Listte, 1 ustte, 1 uste, 1 usde, 7. 

4710 DATADe grotbewoners,kenden,kende,kenden,konrie,* 

4720 DATADe mooie kaars,brandde,brande,branden,brandde,# 

4730 DATADe kinderen,maakten,makten,maakte,maakten, S< 

4740 DATADe 1 eerkracht, vond, vondt, vond, vi ndde, 5) 

4750 DATADe oude vrouw,1achte,1achte,1achtte,1achde, >1 
4760 DATAWij,1eefden,1eefte,1eefden,1eeften,* 

4770 DATADe vogel s, trokken, trokken, trekte, trekten, 5) 

4780 DATADe kok,braadde,braade,brade,braadde,# 

4790 DATADe rotsbl ok ken, stortten, storten, st. or t ten, stortte, 
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4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4B80 
4B90 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
51 10 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 


DATAHet mei sje,hield,hielde,hield, houdde, S> 

DATADe mensen,reisden,reisten,reiste,reisden,$ 

DATAHet meisje, heette, hete, heete, heette, 7. 

DATADe pat i ent, 1 eed, 1 eedt, i eed, 1 i jdde, <D 
DATADe gi ds, 1 eidde, i eidde, 1eide, 1 i ed, tt 
DATADe armen,braken,breekte„braken,breekten, 5) 

DATADe inbrekers,vluchtten,vluchte,vluchtte,vluchtten, & 
DATAHet schip,strandde,strandde,strande,strandden,# 
DATAHet mes, sneed, sneet, snee, sneed, 

DATAWij,baadden,baadden, baade,baadde ,% 

DATADe dame,kleedde,kleede,klede,kleedde,# 

kinderen,praatten,praten,praatte,praatten,& 
man, wachtte, wachte, wachtte, wachde, 7. 
gasten, dr on ken , dr i nkten, dr i nkte, dr on ken, S) 
stroper,beefde,beefde,beefte,beevde,# 
paarden, st.apten, stapten, stapden, stapte, & 
jaloerse vrouw,benijdde,benijde,beneed,benijdde, 
wandel aars, rust ten, ruste, rusten, rust ten, 
jongens,voigden,volchten,volgten,volgden,$ 
mensen, stookten, stookden, stookten, stookde, & 
secretar i s, schreef, schreef , sc hr i jf te, sc hr i jf de, <D 
schiIder,verfde,vierf,verfte,verfde,# 
jager,richtte,rigte,ri chte,richtte, 7. 
mensen, 1 achten ,1achtte,1achten,1achtten,& 
bakker,werkte,werkte,werktte,werkde,7 
DATADma,verwende,verwendde,verwente,verwende,# 

DATADe voetbal1ers,wulfden,wuiften,wuifden,woven,$ 
DATADe jonge vos, si oop, si ui pde, si ui pte, si oop, S> 
DATARoodkapje,1eefde,1eefde,1eefte,1efde,# 

DATADe mooi e vaas, brak, breekte, brak, breekde, 5) 

DATADe chauffeurs,1aadden,1aden,1aadden,1aadde,$ 

DATAIk, schatte, schatte, schadte, schate, V. 

DATA I k ontmoet te, ontmoede, ontmoete, ontmoette, 7- 
DATAHet piuisje,zweefde,zweefte,zwoof,zweefde,# 

DATADma,wist,wist,weette,wete, 0 

DATADe 1oodgieter,maakte,makte,maakte,maakten,& 

DATADe wind,raasde,raasde,raaste,roes,# 


DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 

DATADe 
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750 

Regel 

350 

- 

169 

Regel: 

760 

Regel 

360 

- 

71 

Regel: 

770 

Regel 

370 

- 

246 

Regel; 

780 

Regel 

380 

- 

183 

Regel: 

790 

Regel 

390 

- 

246 

Regel: 

800 

Regel 

400 

- 

250 

Regel: 

810 


n 

143 

58 

58 

58 

193 

252 
183 

48 

253 
236 
145 

51 

247 

39 

215 

231 

180 

205 

66 

212 

32 

24! 

254 
138 
215 

29 

5B 

58 

58 

226 

109 

70 

231 

10 

74 

11 

58 

58 

58 

116 


Regel: 820 - 105 
Regel: 830 - 117 
Regel: 840 - 233 
Regel: 850 - SB 
Regel: 860 - 243 
Regel: 870 - 235 
Regeh 080 - 6 

Regel: 890 - 5 

Regel: 900 - 31 
Regel: 910 - 18 
Regel: 920 - 184 
Regeh 930 - 147 
Regeh 940 - 120 
Regeh 950 - 66 
Regeh. 960 - 61 
Regel: 970 - 223 
Regeh 980 - 80 
Regeh 990 - 58 
Regeh 1000 - 58 
Regeh 1010 - 58 
Regeh 1020 - 94 
Regeh 1030 - 54 
Regel: 1040 - 183 
Regel: 1050 - 66 
Regeh 1060 - 117 
Regeh 1070 - 190 
Regeh 1080 - 181 
Regeh 1090 - 58 
Regeh 1100 - 58 
Regel: 1110 - 58 
Regeh 1120 - 28 
Regeh 1130 - 183 
Regeh 1140 - 93 
Regeh 1150 - 157 
Regeh 1160 - 53 
Regeh 1170 - 113 
Regeh 1180 - 101 
Regeh 1190 - 118 
Regel: 1200 - 8 

Regeh 1210 - 99 
Regeh 1220 * 229 


Regeh 1230 - 109 
Regeh 1240 - 39 
Regeh 1250 - 125 
Regeh 1260 - 5 
Regel: 1270 - 57 
Regeh 1280 - 58 
Regeh 1290 - 58 
Regeh 1300 - 5B 
Regeh 1310 - 199 
Regel: 1320 - 147 
Regeh 1330 - 200 
Regeh. 1340 - 199 
Regeh 1350 - 159 
Regeh 1360 - 233 
Regeh 1370 - 21B 
Regeh 1380 - 133 
Regeh 1390 - 172 
Regeh 1400 - 7 
Regeh 1410 - 245 
Regeh 1420 - 229 
Regel: 1430 - 197 
Regeh 1440 - 28 
Regeh 1450 - 147 
Regeh 1460 - 159 
Regeh 1470 - 203 
Regeh 1480 - 159 
Regeh 1490 - 216 
Regeh. 1500 - 16 
Regel: 1510 - 30 
Regeh 1520 - 17 
Regeh 1530 - 177 
Regeh 1540 - 147 
Regeh 1550 - 60 
Regeh 1560 - 129 
Regeh. 1570 - 159 
Regeh 1580 - 239 
Regel: 1590 - 172 
Regeh 1600 - 246 
Regeh 1610 - B5 
Regel: 1620 - 78 
Regeh 1630 - 104 


Regeh 1640 - 156 
Regeh 1650 - 222 
Regel: 1660 • 19B 
Regel: 1670 - 80 
Regeh 1680 - 28 
Regeh 1690 - 147 
Regeh 1700 - 101 
Regeh 1710 - 173 
Regeh 1720 - 119 
Regeh 1730 - 15 
Regeh 1740 - 0 
Regel: 1750 - 164 
Regeh 1760 - 123 
Regeh. 1770 - 159 
Regeh. 1780 - 42 
Regeh 1790 - 182 
Regeh 1800 - 154 
Regeh 1810 - 39 
Regeh 1820 - 25! 
Regeh 1830 - 162 
Regeh 1B40 - 127 
Regeh 1850 - 183 
Regeh 1860 - 219 
Regeh 1870 - 104 
Regeh 1880 - 96 
Regeh 1890 - 131 
Regeh 1900 - 139 
Regeh 1910 - 60 
Regel: 1920 - 154 
Regeh 1930 - 147 
Regeh 1940 - 53 
Regeh 1950 - 143 
Regeh 1960 - 100 
Regeh 1970 - 96 
Regeh 1980 - 245 
Regeh 1990 - 75 
Regel: 2000 - 17 
Regeh. 2010 - 188 
Regeh 2020 - 147 
Regel: 2030 - 149 
Regeh 2040 - 68 


Regel: 2050 - 69 
Regel: 2060 - 167 
Regeh 2070 - 31 
Regeh 2080 - 39 
Regeh 2090 - 5 

Regeh 2100 - 245 
Regeh. 2110 - 246 
Regeh. 2120 - 183 
Regel: 2130 - 66 
Regeh. 2140 - 61 
Regeh 2150 - 223 
Regeh 2160 - 241 
Regeh. 2170 - 58 
Regeh 2180 - 58 
Regeh 2190 - 58 
Regeh 2200 - 75 
Regeh 2210 - 04 
Regeh 2220 - 14B 
Regeh 2230 - 254 
Regeh 2240 - 14 
Regeh 2250 - 162 
Regeh 2260 - 167 
Regel: 2270 - 191 
Regeh 2280 - 183 
Regeh 2290 - 88 
Regeh 2300 - 5B 
Regeh 2310 - 58 
Regeh 2320 - 58 
Regeh 2330 - 74 
Regeh 2340 - 172 
Regeh 2350 - 28 
Regeh 2360 - 187 
Regeh 2370 - 58 
Regel: 2380 - 58 
Regeh 2390 - 58 
Regeh 2400 - 86 
Regeh 2410 - 94 
Regeh 2420 - 67 
Regeh 2430 - 58 
Regeh 2440 - 5B 
Regeh 2450 - 58 

(c) Junior 99 


32 









Regel: 2460 
Regel*. 2470 
Regelt 2480 
Regelt 2490 
Regelt 2500 
Regelt 2510 
Regelt 2520 
Regelt 2550 
Regelt 2540 
Regelt 2550 
Regelt 2560 
Regel: 2570 
Regel: 2580 
Regel: 2590 
Regel: 2600 
Regel: 2610 
Regel: 2620 
Regel; 2650 
Regel: 2640 
Regel: 2650 
Regel: 2660 
Regel; 2670 
Regel: 2680 
Regelt 2690 
Regelt 2700 
Regel: 2710 
Regelt 2720 
Regelt 2730 
Regelt 2740 
Regel: 2750 
Regel: 2760 
Regel: 2770 
Regel: 2780 
Regel: 2790 
Regel: 2800 
Regelt 2810 
Regel: 2820 
Regel: 2850 
Regelt 2840 
Regelt 2850 
Kegel: 2860 
Regel: 2870 
Regel: 2B80 
Regel: 2890 
Regel: 2900 
Regel: 2910 


259 

15B 

169 

112 

176 

185 

200 

151 

181 

185 

192 
1 

67 

61 

254 
252 
160 

193 
161 

255 
162 
196 
165 
63 
22 

254 

24 

128 

233 

162 

6 

107 

191 

77 
230 

78 
230 

80 

230 

58 

58 

232 

167 

31 

39 


Regelt 2920 - 5 
Regel: 2930 - 22 
Regel: 2940 - 144 
Regelt 2950 - 109 
Regelt 2960 - 201 
Regel: 2970 - 132 
Regel: 2980 - 35 
Regelt 2990 - 43 
Regel: 3000 - 84 
Regel: 3010 - 157 
Regel: 3020 - 252 
Regel: 3030 - 5 
Regel: 3040 - 139 
Regel: 3050 - 47 
Regel: 3060 - 180 
Regel: 3070 - 199 
Regel: 3080 - 58 
Regel: 3090 - 58 
Regel: 3100 - 58 
Regel: 3110 - 58 
Regel: 3120 - 58 
Regel: 3130 - 58 
Regel: 3140 - 29 
Regel: 3150 - 70 
Regel: 3160 - 53 
Regel: 3170 - 205 
Regel; 31B0 - 229 
Regel: 3190 - 152 
Regel: 3200 - 180 
Regel: 3210 - 210 
Regel: 3220 - 226 
Regel: 3230 - 152 
Regelt 3240 - 199 
Regel: 3250 - 212 
Regel: 3260 - 62 
Regelt 3270 - 0 
Regel: 3280 - 64 
Regel: 3290 - 42 
Regel: 3300 * 66 
Regel: 3310 - 226 
Regel: 3320 - 68 
Regel: 3330 - 220 
Regelt 3340 - 119 
Regel: 3350 - 189 
Regel: 3360 - 66 
Regel: 3370 - 222 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


3380 - 

175 

3390 - 

196 

3400 - 

150 

3410 - 

66 

3420 - 

24 

3430 - 

255 

3440 - 

246 

3450 - 

58 

3460 - 

58 

3470 - 

58 

3480 - 

126 

3490 * 

53 

3500 - 

58 

3510 - 

58 

3520 - 

151 

3530 - 

234 

3540 - 

155 

3550 - 

167 

3560 * 

6 

3570 - 

14 

3580 - 

58 

3590 - 

58 

3600 - 

58 

3610 - 

72 

3620 - 

123 

3630 - 

42 

3640 - 

103 

3650 - 

97 

3660 - 

101 

3670 - 

58 

3680 - 

58 

3690 - 

58 

3700 - 

74 

3710 - 

251 

3720 - 

194 

3730 - 

201 

3740 - 

187 

3750 - 

123 

3760 - 

58 

3770 - 

58 

3780 * 

58 

3790 - 

128 

3800 - 

17B 

3810 - 

226 

3820 - 

22 

3830 - 

72 


Regel: 3840 - 123 
Regel: 3850 - 173 
Regel: 3860 ~ 223 
Regel; 3870 - 58 
Regel: 3880 - 58 
Regel: 3890 - 58 
Regel: 3900 - 39 
Regel: 3910 - 38 
Regel: 3920 - 154 
Regel: 3930 - 169 
Regel: 3940 - 223 
Regel: 3950 - 245 
Regel: 3960 - 115 
Regel: 3970 - 81 
Regel: 3980 - 39 
Regel: 3990 * 50 
Regel: 4000 - 245 
Regel: 4010 - 45 
Regel: 4020 - 188 
Regel: 4030 - 109 
Regel: 4040 - 24B 
Regel: 4050 - B9 
Regel: 4060 - 128 
Regel: 4070 - 254 
Regel: 4080 - 188 
Regel: 4090 - 179 
Regel: 4100 - 152 
Regel: 4110 * 103 
Regel: 4120 - 58 
Regel: 4130 - 5B 
Regel: 4140 - 58 
Regel: 4150 - 07 
Regel: 4160 - 248 
Regel: 4170 - 184 
Regel: 4180 - 117 
Regel: 4190 - 139 
Regel: 4200 * 5 
Regel: 4210 - 7 
Regel: 4220 - 125 
Regel: 4230 - 30 
Regel: 4240 - 203 
Regel: 4250 - 131 
Regel: 4260 - 19 
Regel: 4270 - 34 
Regel; 4280 - 5 
Regel: 4290 - 74 


Regel: 4300 - 46 
Regel: 4310 - 199 
Regel: 4320 - 203 
Regel: 4330 - 123 
Regel: 4340 - 254 
Regel: 4350 - 174 
Regel: 4360 - 162 
Regel: 4370 - 1B3 
Regel: 43B0 * 53 
Regel: 4390 - 179 
Regel: 4400 - 191 
Regel: 4410 - 103 
Regel: 4420 - 58 
Regel: 4430 - 58 
Regel: 4440 - 58 
Regel: 4450 - 45 
Regel; 4460 - 58 
Regel: 4470 - 58 
Regel: 4480 - 58 
Regel: 4490 - 58 
Regel: 4500 - 58 
Regel: 4510 - 160 
Regel: 4520 - 58 
Regel: 4530 - 58 
Regel: 4540 - 58 
Regel: 4550 - 185 
Regel: 4560 - 178 
Regel: 4570 - 131 
Regel: 4580 - 27 
Regel: 4590 - 58 
Regel: 4600 - 58 
Regel: 4610 - 58 
Regel: 4620 - 149 
Regel: 4630 - 38 
Regel: 4640 - 32 
Regel: 4650 - 81 
Regel: 4660 - 40 
Regel: 4670 - 121 
Regel: 4680 - 229 
Regel: 4690 - 170 
Regel: 4700 - 197 
Regel: 4710 - 112 
Regel: 4720 - 125 
Regel: 4730 - 84 
Regel: 4740 - 161 
Regel: 4750 - 134 



Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 





Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel: 
Totaal 


4760 

4770 

4780 

4790 

4800 

4810 


4830 

4840 


172 

129 

116 

39 

78 

45 

242 

48 


4870 

4880 


4900 

4910 

4920 

4930 

4940 


148 

56 

57 
14 

106 

23B 

216 

82 

29 

231 


- 162 
- Ill 
4980 - 129 
4990 - 35 
5000 * 210 
5010 * 58 
5020 - 215 
5030 - 203 
5040 - 106 
5050 - 148 
5060 - 5 

5070 - 74 
5080 - 97 
5090 - 65 
5100 - 106 
5110 - 101 
5120 - 177 
5130 - 195 
5140 - 142 
5150 - 86 
5160 - 23 
5170 - 58 
51 BO - 58 
5190 - 58 
5200 - 58 
60677 


MACHINETAAL OP DE MSX 


deel 4 


DEEL 4: Hoe Uw computer met z’n geheugen 
amspringt. 


ELC r 
RRC r 



Wanneer U zich door de delen 1, 2i en 3 
van de machinetaalcursus geworsteld hebt* 
bent U in het bet it van een niet te ver- 
smaden basiskennis in het machinetaalpro¬ 
grammer en. In de volgende twee delen gaan 
we de puntjes op de i zetten* Eovendien 
besteden we mat roeer aandacht aan taken 
die speciaal voor MSX-machines gelden- In 
dit deel korneo cmdermeer aan de ordes het 
gebruik van "schaduw-RAM* op 64K machines! 
de werking van ROM-cartridges (o.a. het 
automatisch opstarten) en extra BASIC in** 
strukties met behulp van of "CALL". 

Voordat we met de uitleg van de bovenge- 
noemde zaken beginner, behandelen we eerst 
een aantal nieuwe machinetaal-instrukties 
die we hierbij nodig hebben. 

- Roteer instrukties 

Bij roteerinstrukties warden alle bits 
van een register of geheugenplaats een 


RL r 
RR r 



Hierbij kan r zijn: A* B, C, D, E, H, L of 
{ HL ) * UX+d), (IY+d> 


De Zilog Z-30 microprocessor die in de 
MSX wordt gebruikt is een uitbreiding op 
de 8080 processor van Intel. De 8090 kent 
de bovengenoemde roteerinstrukties niet. 
Bij deze processor kunnen rotaties alleen 
in de accu plaatsvinden, De Z80 kent alle 
8080 instrukties en heeft daardoor ver- 
schillende instrukties die een zeifde re¬ 
sult aat gevenJ 


07 RLCA = CB07 RLC A 
OF RRCA = CBOF RRC A 
17 RLA = CE17 RL A 
IF RR.A ^ CE1F RR A 


plaats naar links of naar rechts gescho- 
ven, waarbij het bit dat uit het byte 
wordt geschoven, weer op de leeggevallen 
plaats terugkomt. Bij twee roteerinstruk¬ 
ties neemt ook de carry-flag deel aan het 
roteren, bij de andere twee roteerinstruk- 
ties wordt het bit dat uit het byte is ge- 
schoven in de C-flag gekopieerd, De wer- 
king van roteerinstrukties is hieronder 
ook grafisch weergegeven. 


- Sohuifinstrukties 


SRL r 
SRA r 
SLA r 


0 -> 


7 -> 0| - ^C-flag] 


ptf -> -aH-fciid 

C-flaqjfe—[7 <- Q 


<- 0 


Het verschil tussen roteren en schuiven 
bestaat hieruit, dat het bit dat uit het 
bytes wordt geschoven bij schuiven niet 
terugkeert op de ieeggevailen plaats. Met 
schuiven zijneenvoudige vermenigvuldig ing¬ 
en en del ingen uit te voeren. Wanneer alle 
bits een plaats naar rechts worden gescho¬ 
ven i wordt door 2 gedeeld (een eventuele 
breuk wordt genegeerd). Alle bits 1 plaats 
naar links geeft een vermenigvuldiging met 
2? zeals uit voorbeeid 1 is af te lezen* 

Vb 1. 



oouoioo 

34 

t hex) 

= 52 

SLA 

01101ODD 

68 

(hex) 

= 104 = 52*2 

SRA 

00011010 

1A 

(hex) 

= 26 = 52/2 


- Logische bewerkingen 

De Z80 kent drie soorten logische bewer¬ 
kingen i AND, OR en XQR. Net als bij de 
8-bits rekenkundige instrukties worden 
deze instrukties uitgevoerd met de accu en 
een register of qetal, en komt het resul- 
taa t weer in de accu* bijv. A - A OR B. 
Logische bewerkingen worden steeds bits- 
gewijs uitgevoerd. leder bit van het ant- 
woord wordt gevonden door de logische bo¬ 
wer king uit te voeren met de twee bits op 
dezelfde positie in de operanden. 

label i: Logische bewerkingen 


A 

B 

A AND B 

A OR B 

A XOR ' 

r 

0 

D 

Q 

0 

0 


0 

1 

0 

1 1 

1 


r 

0 

0 

1 

1 


1 

_ 

t 

1 

1 1 

D 
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label 2- Twee-complement rekenwijze 


ANDi Een logische AND geeft als resultaat 
a 1 lean een "l" als beide bits N 1" 
zijn. De AND instruktie wordt veel ge- 
bruikt om een aantal van de acht bits af 
te schermen! de niet gewenste bits warden 
"G* gemaakt. 

Vb 2* We wi1len de middelste 4 bits van 
register A apart beschouwen. 

reg A: 11010101 

AND 3C (hex) 00111100 
resultaat: 00010100 

OR: Een logische OR geeft a Is resultaat 

aileen n Q" als beide bits "D" zijn. 
We kunnen de OR instruktie eveneens voor 
afscherming gebruiken: nu maken we de niet 
gewenste bits * 1". 

Vb 3. reg A: 11010101 

OR C3 (hex) 11000011 

resultaat : 11010111 

X0Rs De logische XOR geeft als resultaat 
een "1” als 1 van beide bits "l" is 
en de andere 11 De XOR instruktie wordt 
in machinetaal niet zo veelvuldig toege- 
past, behalve de toepassing "XOR A". Deze 
instruktie maakt register A altijd 0i 

ongeacht de vorige inhoud en neemt maar 1 
byte in beslag. De instruktie LD A,0 heeft 
2 bytes nodig* 

Vb 4* reg A! 11010101 

XOR A: 11010101 

resultaat: 00000000 

“ Relatieve adressering 

Een 3 bits register kan een getal van 0 
tot 255 bevatten, want met G bits zijn 

2 A 8 = 256 combinaties mogelijk. Sons is 
het uenselijk dat ook negatieve getalien 
kunnen worden weergegeven. We zouden het 
meest linkse bit als tekenbit kunnen 
nemen * 0 = " + " en 1 = We prober en nu 

twee getailen op te tellen: +7 + (-5) = 


+7 

□□□□□in 

-5 

1 □□00101 

-12 

laoonoo 


U zlet dat het resultaat niet klopt, het 
achtsfe bit als tekenbit nemen is geen 
handige methode. 


dec. 

twee-complement 

-128 
- 1 

0 

127 

iOOOGODO 

mum 

OODOQDOO 

oil li ill 


De twee-complement methode wordt toegepast 
in de ZS0 bij de instruktiesi JR, DJNZ en 
B d" in (IX+d) en UY+d>, 

JR, de mnemonic van Jump Relative = rela¬ 
tieve sprang, lijkt sterk op de instruktie 
JP (Jump) die we in de vorige les tegen- 
kuamen. Bij JP wordt naar de opgegeven ge- 
heugenplaats gesprongen, Bij JR wordt 
d* mu v. de 2-complement methode opgegeven 
hoeveel plaatsen vooruit (maximaal 127) of 
teruguit (maximaal 123? most worden ge- 
sprongen ten opzichte van de huidige stand 
van de programcounter * 

Vb 6* LUS: 23 INC HL 

1? ADD HL,DE 

18FC JR LU5 

Wilt U een sprong teruguit berekenen, dan 
begint U bij de plaats tuaar U de relatieve 
sprang moot invullen te tellen met : FF, 
FE, FD.. . tot V de sprongpositie bereik 
hebt- Bij een sprong vooruit telt U vanaf 
de positie na de in te vullen plaats!0, 1, 
2> < > enz» 

Een relatieve sprong heeft 2 voordelen 
t.o.v. de instruktie JP- de instruktie 
JR n neemt 2 bytes in beslag, JP mn 3 
bytes en JR n is "relocateable B t wanneer 
het machinetaalprogramma in een ander ge- 
heugengebied wordt gezet hceft men JR n 
niet aan te passen, "mn" in JP mn wel, 
anders wordt een ongewenste sprong uitge- 
voerd* 

Net als bij JP, kan oak een relatieve 
sprang op voorwaarde worden gemaakt. 

Vb 7, JR C,10 ; spring 16 bytes vooruit 

als de C-flag 1 is* 

JR NZ?F0 ; spring 14 plaatsen terug 

als de Z-flag 0 is* 

De instruktie DJNZ staat voori Decrement 
B and Jump relative if Non Zero (verlaag B 
en maak een relatieve sprang als de Z-flag 
0 is). Dit is een zeer handige instruktie, 
die vaak wordt gebruikt waar in BASIC FQR- 
NEXT lussen warden toegepast. 


Bij de 1-complement methode wordt het 
negatieve getal gevonden door van de posi- 
tieve tegenhanger alle bits van teken te 
wisselen (0 wordt 1, 1 wordt 0). 

Vb 5. -5 wordt in 1-complement gevonden 
door 5 te nemen: (5= 00000101 bin? 

en alle bits van teken te wisselen: 
-5 = 11111010 


We proberen wear de optelling +7 + (~5) 


+7 00000111 

-5 1U11010 

+1 1 00000001 

Het resultaat k1 opt nog niet: het antwoord 
is 1 te laag. Bij de twee-complement 
worden eveneens alle bits omgewisseld van 
teken tov. de positieve tegenhanger, maar 
wordt bovendien bij elk negatief gets! 1 
opgeteld. Dus: -5 - 11111010 +1 = 111 11011 


+7 00000111 

-5 m nail 

+2 1 0000001G 

U ziet nu dat het resultaat van +7+(-5) 
juist is* Bovendien zijn bij de 2-comle- 
ment methode niet twee weergaven voor 0, 
zodat het bereik van -128 tot +127 loopt* 


Vb B- 210090 

0605 
LUS: 3600 
23 
1DFB 


LD HL,9000 
LD B, 5 
LD (HL>,0 
INC HL 
DJNZ LUS 


0 dient bij deze instruktie op twee zaken 
bedacht te zijn: 

- de test vindt achter in de Ilis plaats, 
dus da lus wordt minimaal I keer door- 
lopen* Geeft U register E in het begin 
de waarde 0, dan wordt de lus 256 keer 
doorlopen- 

- zorg ervoor dat register E tijdens het 
door I open van de lus niet wordt varan- 
derdi anders bestaat de kans op anein- 
dige lussen* 


- PUSH en POP instrukties 

Wsnneer U tijdelijk een register wilt 
ops!aan, cmdat het tussendoor even voor 
een andere toepassing moet dienen kunt U 
een registerpaar of 16-bits register (AF, 
BC, DE, HL, IX of IV) op de stack 
"FUSHEM". De computer doet dit zelf ook 
bij de instruktie * CALL”, de programcoun- 
ter wordt op de stack gezet en er weer 
vanaf gehaald wanneer de instruktie "RET 11 
wordt bereikt* U dient met M P0P'' de 
gegevens wel tijdig van de stack te halers, 
anders bestrijkt dit kladblok een steeds 
groter gebied en kan programmadelen gaan 
vernletigen. 



Vb 9* Registerpaar BC krijgt de inhoud van 
IX- 

PUSH IX 5zet inhoud IX op stack 
POP BC ?zet laafste gegevens 
van de stack (inhoud 
IX) in EC 

vb ID. Eekijk of HL = DE, en maak indien 
dit het geval is de Z-flag 1. HL en 
DE mogen niet gewijzigd warden. 

PUSH HL 

SCF 

CCF 

SBC HL,DE 
POP HL 

SCF staat voor Set Carry Flag; de C-flag 
wordt 1 gemaakt. CCF betakent: Complament 
Carry Flag, de C-flag wordt veranderd van 
0 naar 1 of van 1 naar □. 11 Reset Carry 

Flag” bestaat niet als aparte instruktie; 
deze rnoet warden samengesteld uit SCF en 
CCF. De 16-bits instruktie SUB HL,DE 
bestaat eveneens niet. Uanneer echter de 
C-flag 0 wordt gemaakt geeft SBC HL,DE 
hetzelfde resultaat. De oude waarde van HL 
wordt vastgehouden door voor "SBC HL^E” 

HL op de stack te pushen en erna terug te 
halen met POP HL. 

- De geheugenopbouw van een MSX-computer 

Mischien heeft U 2 ich er wel sens over 
verwonderd dat Uw NSX-cpmputer 64 K RAN 
haeft (+16K Video RAN) terwiji U "slechts” 

28815 bytes beschikbaar heeff voor het 
programmers in BASIC- Dit komt door dat de 
computer bij het BASIC programmeren maar 
32K RAN ingeschakeld heeft, de andere 32K 
zit verborgen achter het RON geheugen 
(zgn. schaduwRAH). Hoe U dit geheugen te- 
voorschijn kunt toveren en gebruiken wordt 
If in het nu volgende gedeelte uitgelegd* 

Fig 1. Opbouw van een standaard 64K NSX-I 
matzh ine 

De NSX ontwerpers zagen zich voor een 
probieem gesteld. Zij wilden gebruik maken 
yan een algemeen toegepaste, en dus goed- 
kope en betrouwbare microprocessor. Zij 
kozen voor de in 1977 ontwarpen Z80. In 
1977 was RAH geheugen nog zeer duur. Het 
leek toen onwaarschijnlijk dat een 
processor ooit moer dan 64K zou moeten 
aansturen* In 1983 bleek dit achterhaald, 

RAN geheugen was goedkoop geworden en het 
publiek wilde de computers met weinig RAM 
(VIC-20, Spectrum 16K) niet meer hebben. 

Ook was een goede BASIC, met uigebreide 
instrukties zeer geuenst, zodat het RON 
geheugen een voor die tijd ongekende 
grootte van 32K moest krijgen (de Spectrum 
bijv. heeft 12K RON). Zander specials 
kunstgrepen betekent een RON geheugen van 
32K dat de Z80 nog 32K RAN kan besturen. 

Bij de NSX is echter wel voor een 
kunstgreep gekozen; de h bankswitching" 
techniek. 

Via 1 van de 256 1/0 poorten die de Z80 
bezit, kan de programmeur bepalen we Ik 
geheugen de processor "riet”. Naar keuze 
kunnen geheugenblokken ter grootte van 16K 
warden in- of uitgeschake1d* Zo werkt een 
MSX-compttter met 32K RON en 32K RAN bij 
het gebruik van BASIC en met 64K RAM bij 
CP/M toepassingen* 

De in deling van de blokken is als Voigts 
de ZS0 kan fcrezen = uit 1 van de vier 
geheugengebiedeu van 64K, primaire sloten 
genaamd. Deze primaire sloten kunnen weer 
worden onderverdeeld in elk 4 secundaire 
sloten zodat de Z80 theoretisch uit 
4*4*&4K = 1 MegaByte! geheugen kan kiezen. 

Bij 64K MSX-I machines worden de 
secundaire sloten echter niet gebruikt- De 
4 primaire sloten zijn dan als volgt 
verdee Id: Ben slot voor de 32K ROM (48K 
bij Sony), een slot voor 64K RAM. en twee 
expansie/cartridge sloten. 
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De ROM dient zich altijd in slot nr 0 te 
bevindenj dit slot is geselecteerd bij het 
opstar ten van de computer en dan dient de 
ROM aanwezig te zijn* Met RAM geheugen kan 
zich in slot 1 (Mitsubitshi )% slot 2 
(Goldstar, Toshiba) of slot 3 (Philips 
VGB020) bevinden. De VG 8010 heeft als 
uitzondering de 32K RAM bovenin slot 0. 
De slotselectie wordt geregeld door een 
aparte chip (de 8255)* die via I/O adres 
A8 (hex) te besturen is* Wanneer U intypts 


PRINT BIN$CINP(&HAS)) 


vindt U op een Goldstar; 
Dit betekent? 


10 10 00 00 
A 3 2 1 


is 0QG0~3FFF:sIot 0 geselecteerd* BIOS ROM 
2: 4DDQ-7FFF: s 1 ot 0 geselecteerdsBASIC ROM 
3? 8000-BFFF".slot 2 geselecteards 16K RAM 
4: CDOO-FFFFsslot 2 geselecteerd: 16K RAM 

U splitst de 9 bits dus op in groepjes van 
2 bits, die elk voor 16K van de 64K RAM 
bepalen we Ik van de 4 primaire slots (00 - 
11 bin) is geselecteerdp 


De computer werkt nu met gedeelten uit 2 
sloten* Willen we 48K RAM inschakelen, dan 
zou het code getal warden: 10101000 bin; 


0000-3FFF:slot 0 geselecteerdi BIOS ROM 
40QQ-7FFF:slot 2 geselecteerd: I6K RAM 
B000-BFFF:sIat 2 geselecteerdi 16K RAM 
COOO^FFFF = s!ot 2 geselecteerdi 16K RAM 


Probeert U echter OUT &HA8, &B1D1010QO, dan 
reset de computer; U schakelde namelijk de 
BASIC interpreter uit teruijl U hiermee 

aan het werken was! In machinetaal is het 
net ter met BI OS-CALL’s te werken dan niet 
IN en OUT instrukties* 

CALL 138(hex) geeft de huidige selectie 
van de primaire sloten in de accu, 

CALL 13B(hex) past de selectie aan, 
volgens de code die in de accu staat* 

Wanneer U in machinetaal werkt kunt U wel 
de BASIC uitschakelen. u dient de BIOS ROM 
echter ingeschakeld te houden, anders kunt 
U geen gebruik meer maken van BIOS^CALL’s* 
Steeds dient U goed op te letten dat 
gebieden die warden uitgeschakeld niet 
gebruikt worden door het machinetaalpro- 
gramma zelf, anriers is een crash onherroe- 
pelijk het gevolg- Met de Monitor/Editor 
uit MSX-Gids nr 3 kunt U het inschakelen 
van extra RAM bekijken, dit programme is 
helemaal in machinetaal geschreven, zodat 
de BASIC kan worden uitgeschakeld (nu na- 
tuurlijk niet teruggaan naar BASIC zonder 
deze weer in te schakelen!) 

Uanneer U het geheugengebied van 4000- 
7FFF wilt vullen kunt U geen gebruik maken 
van de BASIC instruktie BL0AD omdat er of 
geen RAM in dat gebied is, of de BASIC is 
niet werkzaam, zodat de instruktie niet 
wordt herkend. Daarom wordt de data ee^st 
ingeladen in een werkzaam RAM-gebied (bijv 
9000-CFFF), waarna in machinetaal de BASIC 
wordt omgewisseld voor RAM en de data 
wordt verplaatst, Vaak wordt dan gebruik 
gemaakt van de instruktie LDIR. LDIR ver- 
plaatst een geheugenblok! de lengte dient 
in register BC te staan, de bestemming in 
DE, het huidige adres in HL. 

Vb 11* Loader die het geheugenbied van 
9000-CFFF overzet naar 40QQ-7FFF 

CALL #138 ilees slotindeling 

PUSH AF ;bewaar oude indeling 

LD B j A 

AND *F0 

SRL A 

SRL A 

CALL #13B ;maak 40K RAM 

LD BC,#4000?4000(hex) bytes 


LD DE,#4000;naar adres 4000(hex) 

LD HL,#9000?van adres 9000(hex) 

LDIR Iver p1aat sen 

POP AF [oude indeling 

CALL #13E ;met 32K RAM terug 
RET 

Deze loader werkt voor alle MSX machines, 
ongeacht in walk primair slot de RAM zich 
bevindt* Als voorbeeld nemen we de Philips 
VG 9020. 

CALL #130 -> A = 11110000 

LD B,A -> B = 11110000 

AND #F0 -> A = llilQDOO 

SRL A -> A = 01111000 

SRL A -> A = 00111100 

OR B -> A = 11111100 

ASK RAM + 16K BIOS 


Controleert U zelf sens of voor een 
Goldstar met A = 10100Q0D eveneens 48K RAM 
ontstaat. De instruktie AND #F0 geeft geen 
verandering bij een standaard computer, 
maar is wel nodig als een diskdrive is 
aangesloten. Een Goldstar met een quick- 
disk aangesloten geeft! A = 10100100. Ga 
na dat het resultaat zonder AND #F0 dan 
tout is. 

- De werking van cartridges en uitbrei- 
dings ROM’s. 


Bij het opstarten van de computer kijkt 
deze of er ROM-cartridges aanwezig zijn. 


We kunnen de computer in de waan brengen 
dat het RAM geheugen op adres 4000-7FFF 
een ROff-car tr idge is* Dit doen we door op 
adres 4000 en * M de codes 41(hex) en 42 
(hex) te plaatajn. Wanneer we nu met JP 0 
de computer opnieuui opstarten, zal deze 
denken dat Set RAM-gebied een uitbrei- 
dingsROM is!* Za is het mogelijk een 
programma automatisch te laten star ten na 
een druk op de reset toets* Een andere 
mogelijkheid is de BASIC uit te breiden 
met CALL-instrukties* Dit iaatste gaan we 
toepassen in MT-programma 2* Met de 
instruktie CALL BAUD (of _BAUD) wordt een 
BAUDRATE-aanpassingsprogramma aangeroepen* 
Nu kunt U normaal al kiezen tussen 2 baud- 
rates (1200 of 2400) met het SCREEN 
commando, Dit programma geeft u echter de 
keuze uit 6 baudratess van 600 tot 3600 
baud. 3000 baud komt overeen met de snel- 
held van een commodore met snellader. 

MT-programma 1: Vette letters in SCREEN 1* 


E000 

3AAFFC 

LD A,(FCAF) 

m 

lees screenmode 

E003 

reoi 

CP 1 

■ 

1 

screen I? 

E005 

CO 

RET NZ 

• 

f 

nes -> naar BASIC 

E006 

210000 

LD HL,0 

* 

, 

startadr in VRAM 

E009 

110008 

LD DE,a00 

-* 

1 

eindadr in VRAM 



VERVLG: 



E0QC 

CDAA00 

CALL #4A 

* 

, 

lees byte VRAM 

E00F 

47 

LD B,A 

, 

! 

b=oude letter 

E010 

CB2F 

SRA A 

■ 

, 

a=verschoven let- 


ROM-cartridges zijn meestal 16K of 32K 
groot en zijn werkzaam in het geheugenge^ 
bled van 4000— 7FFF of van 4000—BFFF, De 
computer herkent cartridges door sped ale 
identificatie codes in het begin van het 
cartridgegeheugen* 

Tabel 3: Cartridge identifloatie codes 


E012 

B0 

OR B 

■ 

ter 

□P elkaar prgjec* 

E013 

CD4D00 

CALL #4D 

* 

! 

teren 

terug in VRAM 

E016 

23 

INC HL 

m 

% 

ophggen teller 

EG 17 

CD2000 

CALL #20 

m 

t 

vergelijk HL & DE 

E01A 

20F0 

JR NZ,VERVLG 


E01C 

C9 

RET 




adres 4000+4001 41 42 (ascii “ABM 
4002+4003 initialisation 
4004+4005 statement 
4006+4007 device 
4008+4009 text 
400A-400F reserved 

Adres 4000 en 4001 (hex) bevatten de ascii 
waarden van "A” en *E M . Hierdoor kan de 
computer de cartridge van RAM-geheugen of 
ongebruikt gebied onderscheiden. Wanneer 
de cartridge herkend is, wordt naar het 
geheugenadres aangegeven door adres 4002 
en 4003 (in de voor de ZBO kenmerkende 
volgorde : eerst LSB, dan MSB) gesprongen. 
Bij spel cartridges wordt nu niet meer 
teruggesprongen naar de comPuter-RQM, 
zodat spelcartridges zelf opstarten 
wanneer de computer wordt aangezet* Bij 
sommige computers verzorgt eeti schakelaar 
in het klepje het uitzetten van de compu¬ 
ter, twee pennen van de cartridge zorgen 
ervoor dat de spanning weer wordt aange- 
sloten. Bij andere cartridges en ROM 
geheugen wordt wel teruggesprongen naar de 
computer ROM, Deze gaat dan verder met het 
zoeken naar cartridges, om uiteindelijk de 
BASIC in te schakelen, 

Bij “Statement" kan een adres warden 
opgegeven om te testen of de ROM de in- 
struk+ie achter het BASIC commando CALL 
(afgekort “_*) kent. Deze instruktie mag 
15 tokens lang zijn en wordt opgeslagen in 
de geheugenadressen FD09 t/m FD98. De 
computer heoft alle ingetypte letters al 
□mgezet naar hoofdletters en achter de 
laatst ingetypte letter een 0 toegevoegd 
(end of text marker), 

"Device" wordt gebruikt om bij uitbrei- 
ding en extra "devices’* to creeeren, buiten 
de standaard poor ten "LPT:•, "GRPi", 
*CAS:" en "CRT:"* Bij een diskdrive zijn 
"A:" on op deze wijze gecreeerdt bij 

een quickdisk "QDO:' t/m "QD7:*, 

"Text" geeft hot begin aan van een even** 
tueel BASIC programma in ROM. Wanneer 
11 ini t lal isation", * statement *', '‘device" en 
"text" met van toepassing zijn voor een 
bepaaJde ROM, wordt een Q op deze plaatsen 
gezet. 


Dit programma geeft een toepassing van een 
schuifinstruktie en van de logische 
instruktie OR, Nadat eerst gekeken is of 
SCREEN 1 aktief is (adres FCAF bevat dan 
de uaarde 1),. worden de letters uit het 
Video RAM gehaald en een pasitie naar 
rechts geschoven. De OR instruktie projec- 
teert de verschoven letter op de oorspron- 
kelijke, zodat vettere letters ontstaan. 
Met BIOS-CALL #20 wordt de teller HL 
vergeleken met de eindwaarde in DE; zijn 
beide gelijk dan wordt de Z-flag 1, 
U krijgt extra vette letters door de rou¬ 
tine twee keer aan te roensn, 

10 FOR I=&HEOOO TO £:HE01C:READ A$:A=VAL("A 
H M + AS):POKE I,A:NEXT 

20 DATA 3AiAF,FCiFEtl,C0i21,O,0tlliDfS,CDt 
4A,0,47,CB,2F,B0,CD,40,0,23,CD,20t0,20, 
F0,C9 

30 SCREEN Is DEFUSR=AHE000 :A=UBR(l' 


MT-pragramma 2: Baudrate instellmg 


07E4 

CD3em 


CALL 

#138 :lees primaire 

37E7 

47 


LD B, 

A ;slot 

87E8 

E6F0 


AND #F0 

87EA 

CB3F 


SRL A 

87EC 

CB3F 


SRL A 

;schakel BASIC 

97EE 

BO 


OR E 

?uit, mask 48K 

87EF 

CD3B01 


CALL 

# 1 3B ? RAM 

87F2 

012D01 


LD BC 

,#12D ;kapieer ge^ 

37F5 

110040 


LD DE 

,#4000 ;bied van 9000 

87F8 

2 i ooea 


LD HL 

,#8800 ;-B92C naar 

87FB 

ED BO 


LDIR 

14000-412C 

87FD 

C3DQ00 


JP 0 

ireset 

8800 

4142 



Scodes am na 

8802 

0000 



;de reset de 

8804 

104000 



, computer te 

9807 

000000 



;Iaten denken 

880A 

□00000 



;dat de RAM r n 

S80D 

000000 



;cartridge is 

esio 

F5 

ED: 

PUSH 

AF ‘bewaar inhoud 

8811 

C5 


PUSH 

BC ?registers op 

8812 

D5 


PUSH 

DE ,de stack 

3813 

E5 


PUSH 

HL 

3014 

21G9FD 


L.D HL 

,#FD89 ;de tekst acU- 

8317 

116640 


LD DE 

T TS1 ;ter CALL 

881A 

7E 

COM 

:LD A, 

(HL) ;wordt met 
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88 IB 

47 

LD B, A 

I 1 * BAUD* verge- 

981C 

1A 

LD A,(DE) 

;ken 

88 ID 

B8 

CP B 


88 IE 

2040 

JR N2,EXT 

;tekst kuiam 

□820 

23 

INC HL 

;niet overeen 

8821 

13 

INC DE 


8822 

FEOO 

CP 0 


8824 

20F4 

JR NZ,COM 

;end of text 

8826 

216E40 

LD HL,TS2 

?marker7 nee? 

8829 

7E 

TEK:LD A,(HL) 

;dan volgende 

8B2A 

FEOO 

CP 0 

;letter tester! 

382C 

2806 

JR Z,INV 


802E 

CDA200 

CALL #A2 

;zet tekst met 

8831 

23 

INC HL 

;uitleg op het 

8032 

10F5 

JR TEK 

Ischerm 

8834 

3E7F 

INViLD A, #7F 

ilees cijfer 

3836 

CDA200 

CALL #A2 

; van baudrate 

8839 

CD9FG0 

CALL #9F 

ikeuze in 

383C 

CDA20D 

CALL #A2 

iiTiaak van 

8I33F 

D631 

SUB #31 

;ASCI I cfr 0-5 

8841 

38F1 

JR C,INV 

jkleiner 0? 

8943 

FE06 

CP 6 


8845 

30ED 

JR NC,INV 

?groter 6? 

8347 

CB27 

SLA A 

;dit getal *B 

8849 

CB27 

SLA A 

;om plaats van 

394B 

CB27 

SLA A 

;bijbehorende 

S34D 

6F 

LD L, A 

ibaudrate ge- 

884E 

2641 

LD H,#41 

ftallen te 

8050 

1106F4 

LD DE,#F406 

;vinden 

3353 

0605 

LD B, 5 


8B55 

7E 

DATsLD A,(HL) 

jzet getallen 

8856 

12 

LD (DE),A 

?uit tabel in 

8857 

23 

INC HL 

;de variabelen 

8358 

13 

INC DE 

?v-d. taperou- 

8859 

10FA 

DJNZ DATA 

;tinea 

885B 

El 

POP HL 


085 C 

D1 

POP DE 

?haal nude 

8B5D 

Cl 

POP EC 

;waarde regis¬ 

885E 

FI 

POP AF 

ters terug 

□85 F 

C? 

RET 



SB60 El 

EXT:POP 

HL 

;maak C-flag 1 

8861 D1 

POP 

DE 

?om te laten 

8862 Cl 

POP 

EC 

;zien dat de 

8863 FI 

POP 

AF 

;tekst achter 

8864 37 

SCF 


?CALL onbekend 

8865 C9 

RET 


; is 

8866-886A: 

TSl: 


5tekst "BAUD* 

8B6B-8BC1: 

TS2: 


iuitleg tekst 

8900-892C: 

codes voor diverse baudrates 

10 ’Eerst 

wegsaven* 

dan 

pas proberen 


20 ’of het programme uerkt! 

30 » 

40 DIM A$(9) 

50 DATA CD,38,01,47,E6,F0,CB,3F,CB 
60 DATA 3F,BQ,CD,3B,ai,01,2D,01,ll 
70 DATA 00,40,21,00,88, ED, BO,C3,00 
80 DATA 00,41,42,00,00,10,40,00,00 
90 DATA 00,00,00,00,00,00,00,00,F5 
100 DATA C5,D5,E5,21,89,FD, 11,66,40 
110 DATA 7E,47,1A,BS,20,40,23,13,FE 
120 DATA 00,20,F4,21,6B,40,7E,FE,00 
130 DATA 28,06,CD,A2,00,23,18,F5,3E 
140 DATA 7F, CD, A2,00,CD,9F,00,CD,A2 
150 DATA GO,D6,31,38,FI,FE,06,30,ED 
160 DATA CB,27,CB,27,CB,27,6F,26,41 
170 DATA 11,06,F4,06,05,7E,12,23,13 
180 DATA 10, FA, El, DliCl,FI,C9,El,D1 
190 DATA Cl,FI,37,C9 
200 A$(Q) a "BAUD“+CHR${G> 

210 A4(1) = "BAUDRATE: B +CHR*(13)+CHR*(10) 
220 At(2) = "========"+CHR$113)+CHR$(10) 

230 At(3)-"1s 600 B +CHR$(13)+CHRt(10) 
240 At<4) = "2: 120G"+-CHR*113>+CHRt( 10) 
250 A$< 5) = "3: 1800*+CHR$<13)+CHR*<10> 
260 A$(6)="4: 2400"+CHRtf13)+CHR$(10) 
270 A$(7)a"5i 3000 , '+CHR$( 13)+CHR$( 10) 
280 Atf8) = "6 : 3600“+CHRt(13)+CHRt110) 


290 At (9) = "Uiu keuze? "+CHR$(0) 

300 DATA A6,B8,4C,5A,07,0,0,0:’ 600 BD 
310 DATA 53,5C,26,2D,OF,0,0,0*’1200 BD 
320 DATA 37,3D,19,IE,16,0,0,0:’1300 BD 
330 DATA 29,2E,13,16,IE,0,0,0:’2400 BD 
340 DATA 21,24,OF,12,25,0,0,0:’3000 ED 
350 DATA IB,IE,OC,OF,2D,0,0,0:’3600 BD 
360 RESTORE 50: FOR I=4H87E4 TO &H3365 
370 READ At:A=VAL("6H a +At):P0KE I,A:NEXT 
380 B-6H3866 

390 FOR 1*0 TO 9: FOR J=1 TO LEN(A$(D) 
400 A=ASC(MIDtlA$(I),J,1)):POKE B,A 
410 B=E+i:NEXT:NEXT 

420 RESTORE 300:FOR I=&H3900 TO &HB92C 
430 READ At:A=VAL("&H"+A$):POKE I,A:NEXT 
440 DEFUSR=&H87E4:A=USR ( 0) 

Opbouw MSX-1 machine 



Marc Spierenburg 



CAPS LOCK ROUTINE 

Het vanuit een programme omschakelen van hoofdlet- 
ters naar kleine letters is erg simpel en bij de 
meeste MSX-ers wel bekend. 

Namelijk: POKE64683,0 voor kleine letters en 

P0KE64683,253 voor hoofdletters 

Het vervelende van dit truukje is echter, dat het 
CAPS LOCK lampje niet meedoet, zodat je nooit kunt 
zien, waar je aan toe bent. 

Welnu, de volgende routine werkt EXACT! hetzelfde 
als de CAPS LOCK toets. Wanneer hij aangeroepen 
wordt, zal hij dus de CAPS LOCK omschakelen, inclu- 
sief het lampje. 

De routine bestaat uit een stukje M/C, dat in de 
regels 10-30 ingepoked en gedefinieerd wordt en uit 
een stukje BASIC, dat de juiste waardes inpoket en 
de M/C aanroept. 

Er is gebruik gemaakt van de Bios Call "CHGCAP 0132 n 
en van de systeem variabele "CAPST FCAB ,f (ADRES 
64683). 

10 DATA 58,171,252,205,50,1,201 

20 FOR I=47470TO47476:READX:POKEI,X:NEXT 

30 DEFUSR1=47470 

1000 'CAPS LOCK: IFPEEK(64683)=0THENPOKE646B3,255 
ELSEP0KE64683,0:A=USR1(0):RETURN 


PRINTER CONTROLE ROUTINE 

Deze routine controleert of er een printer is aange- 
sloten en is ingeschakeld. Er wordt gebruik gemaakt 
van de Bios Call "LPT5TT 00A8' 1 en het resultaat is 
te vinden in adres 47600. 

De M/C routine in regel 10 kan op vrijwel elk adres 
worden inqeooked, waarna telkens als deze routine 
met A=USR4(0) aangeroepen wordt, de waarde 0 (geen 
printer beschikbaar) of de waarde 255 (printer OK) 
in adres 47600 wordt geplaatst. 

10 DATA 205,168,0,50,240,185,201 
20 CLEAR100,47000 

30 F0RZs47515T047521:READX:POKEZ,X: NEXT 
40 DEFUSR4=47515 

1000 A=USR4(0):A=PEEK(47600) 

10X0 IFA=0THENPRINT"PRINTER IS NIET AANGESLOTEN": 
PRINT"OF STAAT NOG NIET AAN":RETURN 
1020 IFA=255THENPRINT"PRINTER OK":RETURN 


ROB POIROT. 
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BENUT DE 32K RAM ONDER DE BASIC-ROM 


Zoals bekend verondersteld mag worden is bij de 64k 
MSX, 32k (netto ca. 29k) beschikbaar als men in 
BASIC werkt. De andere 32k Ram bevindt zich in het 

adresgebied van de BASIC-Rom. Adressen 0000-7FFE. 

Het geheugen is verdeeld over z.g. slots. 


Als voorbeeld een routine, die een deel van het 
geheugen in het gebied 800G-FFFF verplaatst naar een 
gebied ergens in page 0 of 1 (0000-7FFF). Deze 
routine kan nuttig zijn om b.v. de inhoud van het 
beeldschermgeheugen op te slaan in de normale niet 
toegankelijke 32k Ram 'naast de Rom*. Hier is dus 
ruimte voor 2 hi-res schermen. Het beeldscherm¬ 
geheugen wordt eerst in de Ram adressen 40000-54336 
gecopieerd d.m.v. de bekende Rom routine CALL 
LDIRMVi 


FFFF 
page 
COOO 
page 
8000 
page 
4000 
page 
0000 
si ot 










0* 1 













~R- 



2 ; 












| 

-A* 



1 

R 








-0- 



1 

-M- 



o ; 

M 







nr. 

0 

1 

2 

3 


Elk slot beslaat het volledige adresgebied 0 tot 
FFFF . De slots zijn onderverdeeld in pages van elk 
16k. In slot 0 bevindt zich de BASIC-Rom (page 0 en 

1). De 64k Ram bevindt zich in slot 2 (page 0 t/m 
3). D.m.v. PPI outputpoort A8, het z.g. slot- 
select-register, wordt aangegeven weIke pages in 
welk slot door de processor worden geadresseerd. 


b7 b6 b5 b4 b3 b2 bl bO 


AS 


page3 page2 page! pageO 
bO/bl bevat het slot nr. 
van page 0 enz. 


Is de inhoud van dit register b.v. AO, den ziet het 
er als volgt uit: 


LD 

HL ,0 

; BEGIN VRAM 

LD 

DE,40000 

; BEGIN RAM 

LD 

BC,14337 

; AANTAL 


CALL LDIRMV 
RET 

Hierna wordt het gebied 40000-54336 weggezet in page 


0 met: 


DI 

DISABLE INTERRUPT 

LD A, AAH 

LD A,101010LO 

OUT (A8H), A 

ZET IN SELECT REGISTER 

LD HL,40000 

BEGIN RAM 

LD BE,0 

BEGIN PAGE 0 

LD BC, 14337 

AANTAL 

LDIR 

VERPLAATS 

LD A,AOH 

LD A,10100000 

OUT (ABH),A 

ENABLE INTERRUPT 

RET 

RETURN BASIC 


De tussenfase, beeldscherminhoud near de in Ram ge- 
creeerde buffer 40000-54336, is nuttig om de 
beeldscherminhoud naar keuze naar tape, page 0 of 
page 1 te kunnen verplaatsen en natuurlijk weer 
terug. Een en ander leidt tot enkele machinetaal- 
routines, die toegevoegd kunnen worden aan b.v. een 
tekenprogramma. Dit geeft dan de volgende moge- 
lijkheden: 


1) schermbeeld naar buffer om hierna b.v. een Help- 
of Menuscherm in de tekstmode te tonen en anders- 
orn. 

2) schermbeeld via buffer near page 0 of 1 en an- 
dersom. 

3) schermbeeld via buffer near tape en andersom. 

4) van tape via buffer naar page 0 of 1 en andersom. 

5) van page 0 of 1 via buffer naar scherm. 


b7 b6 b5 b4 b3 b2 bl bO 


1 

0 

1 

0 

0 

0 

0 

0 






page 0 in 
page 1 in 
page 2 in 
page 3 in 


si ot 0 
si ot O 
si ot 2 
si ot 2 


Per 2 bits is er een slot nr. aangegeven tussen 0 en 
3. Een en ander is te controleren door in te 
toetsen: 


PRINT HEX$(INP(4HA8)) 


voor de Goldstar geeft dit AO. Willen we nu dat de 
processor alleen het Ram-gebied in slot 2 
adresseert, dan kunnen we dit doen door een andere 
waarde in het slot-select register te zetten met: 


OUT 4HA8,4HAA 

Er komt nu 10101010 in het register HB met als 
gevolg dat de pages 0 t/m 3 in slot 2 geselecteerd 
zijn. Ook merken we dat de computer nergens meer op 
reageert, dit is natuurlijk niet zo vreemd omdat de 
BA5IC-Rom niet meer aangesproken kan worden. Wat 
echter wel kan is het laten werken van een 
machinetaalprogramma mits hierin geen aanroepen 
voorkomen van in de Rom geplaatste procedures. Zo'n 
machinetaal- programme staat dan in het normale, 
voor BASIC bereikbare, Ramgebied, begint met het 
omschakelen van het siotregister en eindigt weer met 
het terugschakelen naar de normale geheugenindeling. 


Deze handelingen maken gebruik van een of meer van 
de zes machinetaalroutines welke in het BASIC 
programme (listing 1) zijn geplaatst. Men kan dit 
programme met 5AVE"cas:5CR5AV" wegschrijven naar 
tape en naderhand met "MERGE" aan een bestaand 
programme toevoegen. 

Nu we de geheugenpagina,s 0 en 1 in slot 2 kunnen 
gebruiken, doet zich een andere interessante 
mogelijkheid voor, n.l. het ops1aan van een 
BASIC-programma. Is hier eenmaal een programme 
opgeslagen, dan is dit ook na NEW of het laden en 
RUNnen van een tweede programma altijd weer terug te 
brengen naar het normale werkgebied. Een variant 
hierop is een 'SWAP' routine welke na aanroepen het 
geheugengebied page 0+1 omwisselt met page 2+3. Er 
kunnen dus 2 programma's van 29k geladen en naar 
keuze geRUNd worden. In deze programma's kan zelfs 
de SWAP routine aangeroepen worden, zodat het ene 
programma het andere naar het werkgebied verplaatst 
en het tweede programme verder RUNt. 

Om dit mogelijk te maken, moet een stukje geheugen 
gevonden worden hetgeen door CLEAR niet aangetast 
wordt. Komt er in een programma nl. een CLEAR 
instructie voor t.b.v. string of machinecode ruimte, 
dan wordt de dear door ons geplaatste routine 
mogelijk overschreven. Een tweede probleem is dat de 
stack pointer in de Z80 kan veranderen, zodat een 
verkeerd adres wordt aangewezen bij het terugkeren, 
Een niet gebruikt stukje geheugen werd gevonden op 
de adressen EFCB-FFFE* Het probleem van het 
terugkeeradres werd opgelost door de inhoud van de 
stackpointer op te slaan in twee geheugenplaatsen, 
deze mee te verplaatsen en naderhand weer te laden 
in de stackpointer. 
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Een en ander leidt tot het programma 'BASIC pro- 
gramma verplaatsen' (listing 4 . Dit programma kan 
d.m.v. de machinecode- loader geladen worden. Na RUN 
heft dit programma zichzelf op, Hierna kan men met 
Z=USRB(0) een BASIC programma in page 0+1 opslaan en 
met Z=USR9(0) weer terugbrengen. 

Het programma 'SWAP' (listing 6) is wat langer en 
past niet in het stukje geheugen FFCB-FFFE, daarom 
wordt het eerst geladen in het gebied C000-C051* De 
eigenlijke SWAP routine (C025-C051) wordt na 
aanroepen van C00G nu eerst verplaatst naar page 0+1 
zodat, als de eerste keer de SWAP routine aan- 
geroepen wordt, er geen onzin in het normale 
werkgebied knmt. Een eenvoudig voorbeeld van 2 BASIC 
programma’s die elkaar d.m.v. SWAP aanroepen is het 
volgende: 

10 Z=USR9(0) 

20 PRINT "PROGRAMMA 1" 

30 GOTO 10 

10 Z=USR9(0) 

20 PRINT"PROGRAMMA 2" 

30 GOTO 10 


K. de Reus. 

ALLEEN VOOR 64 K MACHINES 
ALLEEN VOOR CASSETTE 
Beeldscherms WIDTH 36 


LISTING 2 
**** Screen 2 saven **** 


tj ■ 

6 ’ 

10 
20 

30 ’ + Doors K.de Reus + 

40 ’ + (c) 1986 MSX-Gids + 

50 7 + Amsterdam + 

70 ’In het hoo-fdprogramma de volgend 

e regels opnemens 
80 ’ CLEAR XXX,40000 


90 ’ 

Machinetaal 

i n i 

geheugen poken me 

t GOSUB 10000 





100 

9 Vr am 


-> 

Bu-f 


met 

GOSUB10100 

110 

’Bu-f-f 


-> 

Vram 


met 

GOSUB10110 

120 

’ Vr am 


— > 

Page 

0 

met 

GOSUB10120 

130 

’ Vr am 


-> 

Page 

1 

met 

GOSUB10130 

140 

’ Page 

0 

_> 

Vram 


met 

GOSUB10140 

150 

9 Page 

1 

— > 

Vram 


met 

GOSUB10150 

160 

■' Vram 


-> 

T ape 


met 

GOSUB10160 

170 

’ Tape 


— > 

Vram 


met 

G0SUB10170 

180 

’ Page 

0 

— > 

T ape 


met 

GOSUB10180 

190 

’Tape 


-> 

Page 

0 

met 

GOSUB10190 

200 

’ Page 

1 

-> 

Tape 


met 

GOSUB10200 

210 

9 Tape 


-> 

Page 

1 

met 

GOSUB10210 

10000 FOR 

1 = 

: &HDAC0 * 

TO 

&HDB31 


10010 

10020 

10030 

10031 

10032 

10033 

10034 

10035 

10036 

10037 
10040 
10050 
10060 
10070 
10100 
10110 
10120 
10130 
10140 
10150 
10160 


READ A*: A^VAL ( "£<H"+AS> 

PDKE I,A 
NEXT I 

REM BEPALEN SLOTINDELING 
A=INP(&HA8) 

POKE &HDAEB,As POKE &HDB01,A 
POKE &HDB17, A s POKE ?<HDB2DiA 
A—A+A/16 

POKE ScHDADC, As POKE &HDAF2, A 
POKE &HDB08, As POKE S<HDB1E,A 
DEFUSR1 =&HDAC0 s DEFUSR2=&HDACD 
DEFUSR3=S<HDADAs DEFUSR4=&HDAF0 
DEFUSR5=&HDB06: DEFUSR6=&HDB1C 
RETURN 

RETURN 
RETURN 
Z=USR3(0) 

Z=USR4(0> 

Z=USR2(0) 

Z=USR2(0) 

BSAVE"CAS 


Z=USR1(0) 
Z=USR2<0) 
Z=USR1(0) 
Z=USR1(0) 
Z=USR5<0) 
Z=USR6(0> 
Z=USR1(0) 


RETURN 
RETURN 
RETURN 
RETURN 
VRAM",4000 


0 >,54336!s RETURN 


10170 BLOAD"CAS:":Z=USR2 < 0):RETURN 
10180 Z =USR5(0)s BSAVE"CAS s PAGE0",400 
00!,54336!s RETURN 

10190 BLOAD"CAS:"sZ=U5R3(0)sRETURN 
10200 Z=USR6(0> s BSAVE"CASs PAGE1",400 
00!,54366!s RETURN 

10210 BLOAD"CASs"s Z=USR4(0)sRETURN 
10285 ’ 

10290 REM ** DATA MACH.CODE ******* 
10295 ’ 

10300 DATA 21,00,00,01,00,38,11,40,9 
C,CD,59,00,C9,21,40,9C,01,00,38,11,0 
0,00,CD,5C,00,C9,F3,3E,AA,D3,A8, 21,4 
0,9C,11,00,00,01,00,38,ED,B0,3E,A0,D 
3,A8,FB,C9 

10310 DATA F3,3E,AA,D3,A8,21,40,9C,1 
1,00,40,01,00,38,ED‘B0,3E,A0,D3,AB,F 

B, C9,F3,3E,AA,D3,AS;21,00,00i11,40,9 

C, 01,00,38,ED,B0,3E,A0,D3,A8,FB,C9 
10320 DATA F3,3E,AA,D3,A8,21,00,40,1 
1,40,9C,01,00,38,ED,B0,3E,A0,D3,A8,F 
B, C9 


5’ LISTING 4 
6 ’ 

10 ’* BASIC PROGRAMMA VERPLAATSEN * 

30 9 + Doors K.de Reus + 

40 ’ + (c)1986 MSX-Gids + 

50 9 + Amsterdam + 

70 FOR I=&HFFCB TO &HFFF1 

80 READ AS ; A=VAL < " &H " +AS) 

90 POKE I,A 

100 NEXT I 

101 REM BEPALEN SLOTINDELING 

102 A=INP(&HA8) 

104 POKE &HFFED,A 
106 A=A+A/16 

108 POKE &HFFE3, A 

110 DEFUSR8=&HFFCB: DEFUSR9=£<HFFD8 
120 Z=USR8(0) 

130 NEW 

140 ’*** DATA MACH.CODE *** 

150 ’ 

160 DATA F3,ED,73,F2,FF,21,00,80,11, 
00,00,18,07,F3,21,00,00,11,00,80,01, 
00,B0;3E;AA,D3,A8,ED,B0,ED,7B;F2,FF, 
3E,A0,D3,A8,FB,C9 


3 

6 ’ 
10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
101 
102 
104 
106 
108 
110 
120 
130 
140 
150 
160 


LISTING 6 

* BASIC PROGRAMMA’S "SWAPPEN" * 

+ Door: K.de Reus + 

+ (0 1986 MSX-Gids + 

+ Amsterdam + 

++++++++++++++++++++ 

FOR I“&HC000 TO &HC051 
READ AS;A—VAL("&H"+AS) 

POKE I,A 
NEXT I' 

REM BEPALEN SLOTINDELING 
A=INP(&HAB) 

POKE &HC020,As POKE &HC04D,A 

»^=L(^+Pj/ i 

POKE ?<HC01A, As POKE StHC034,A 
DEFUSR8—8<HC000 s DEFUSR9=S<HFFCB 
Z=USR8(0) 

NEW 

’*** DATA MACH.CODE *** 


DATA 21,25, C0, 11, CB, FF, 01,2D, 00 
ED,B0,F3,ED 9 73,FB,FF,21,00,80,11,00 
00,01,00,80,3E,AA,D3,A8,ED,B0,3E,A0 
D3,A8,FB,C9,F3,ED,73,FB,FF,21,00,80 
11,00,00,01,00,80,3E,AA,D3,AS,7E,32 

^I^DATa’fA^FF,12,23,13,0B,78,B1,20 
EF,ED,7B,FB,FF,3E,A0,D3,A8,FB,C9‘ 


(c) Junior 99 


38 














DE STANDAARD GEKOPPELD AAN DE STANDAARD 

M5X computers vormen, zoals u weet, de standaard 
onder de homecomputers. Waaruit deze standaard be- 
staat zult u vast al lang weten en daaroin zal ik u 
hiermee niet nog eens lastig vallen. 

Wat vaak near voren komt bij het vallen van de drie 
magische letters "MSX" is de grote verwantschap met 
de PC-reeks van computers. Deze PC's, eangevoerd 
door de wereldleider IBM vormen de standaard in de 
zakelijke computermarkt. 

De IBM PC en hear z.g. "klonen" maken gebruik van 
een door het softwarehuis Microsoft ontwikkeld ope¬ 
rating system en BASIC taal. Het operating system 
staat bekend aIs MS-DOS (IBM noemt dit PC-005). De 
BASIC taal is een versie van Microsoft-BASIC met als 
extra's: grafiek en geluid en een full screen edi¬ 
tor. 

In uw MSX computer is tevens in een 32K groot ROM 
geheugen een BASIC aanwezig. Dit BASIC is tevens 
ontworpen door de firma Microsoft. De afkorting MSX 
staat dan ook voor: Microsoft extended basic. Lngi- 
scherwijs bestaat er verband tussen de voor IBM 
ontwikkelde BASIC en de MSX versie van deze taal. De 
overeenkoinsten gaan zelfs zeer ver. We kunnen zeggen 
dat de twee dialekten voor 95 % gelijk zijn. De 
verschillen zitten hem voornamelijk in het aantal 
schermmodi, de grafische resolutie, het gebruik van 
kleuren en de mogelijkheden van 80 kolommen bij een 
PC. 

Een grafisch scherm bij de PC’s zeals we dat kennen 
van een MSX-I computer als "screen 2" is bij de PC's 
"screen 1". Dat betekent dat we na enkele kleine 
aanpassingen heel wat in BASIC geschreven PC pro- 
grammatuur kunnen verwerken op onze "eenvoudige" MSX 
homecomputer. Dat zou dan moeten gebeuren door het 
overtikken van een op een PC gemaakte programma 
listing. 

DE DISKDRIVES 
MSX’ BASIC 

Dat het overtikken van zo'n programma veel werk is 
zal bij velen van u zeker bekend zijn. Het zou toch 
ideaal zijn als we bijvoorbeeld via een diskdrive de 
IBM BASIC programme's zouden kunnen inlezen op onze 
MSX. 

PCs gebruiken als diskformaat het 5 1/4" type. 
Dit wordt bij MSX slechts zelden toegepast. De enige 
dr ive die van dit formaat op de markt is, is de 
Spectravideo SV-707 diskdrive. Wat gebeurt er nou 
als we een PC schijf in deze 5VI drive steken en we 
vragen d.m.v. het commando "FILES" de inhoudsopgave 
op van de schijf. Dan krijgt u keurig de schijfin- 
houd op het scherm, alsof er een MSX schijf was 
ingestoken. De rede voor deze compatibiliteit ligt 
in het feit dat MSX computers dezelfde formatering 
en schijfopbouw hanteren als de PC computers. Hier- 
door is het mogelijk om alie IBM/PC schijven te 
iezen. 

"Mooi, dus we kunnen nu alle PC programme's op onze 
MSX computer gebruiken.", zult u zeggen. 

Nee! Was dat maar waar. PC's maken gebruik van een 
16 bits microprocessor welke geheel afwijkt van de 
bij MSX toegepaste Z80 (echt bits) microprocessor. 
Dat betekent, dat de schitterende machinetaalpro- 
gramma's niet zijn te gebruiken op uw MSX, helaas... 
We weten echter dat de PC BASIC taal zeer verwant is 
aan MSX BASIC, dus deze programme's zouden we zeer 
goed kunnen gebruiken. 

Stel, we willen de file "M5XGIDS.BAS" van de PC 
schijf in onze MSX computer laden. We zouden dat 
gewoontegetrouw doen d.m.v. de instruktie: 

!_0AD"MSXGIDS.BA5" 

Het laden van dit programme zal probleemloos verlo- 
pen, echter wat gebeurt er tot onze verbazlng als we 
een listing opvragen. We zullen een reeks van onzin 
op het scherm zien. De reden hiervoor moeten we iets 
dieper zoeken. 

Een computer slaat de BASIC commando's op als codes 
in het geheugen. Deze codes staan bekend als "to¬ 
kens". Zo is bijvoorbeeld de token code voor PRINT 
gelijk aan 91H bij een MSX computer. Bij een PC kan 


de token code voor PRINT echter best geheel anders 
zijn, bijvoorbeeld BDH. 

Als we nou een programma van een PC hebben ingeladen 
en we listen dit, dan zal uw MSX de token BDH verte- 
len naar het commando dat MSX BASIC hierbij zou 
zoeken, Bij MSX komt dit nvereen met het commando 
COLOR. Dat betekent dat op alle plaatsen waar in het 
PC BASIC programma PRINT voorkomt, nu het commando 
COLOR wnrdt gelist op uw MSX. 

Bovenstaand zou dus betekenen, dat ondanks alle 
compatibiliteit, we geen BASIC programme's tussen 
beide computersystemen zouden kunnen uitwisselen! 

Niks is echter minder waar. Microsoft heeft znwel 
bij PC-BASIC als bij MSX-BASIC de mogelijkheid ge- 
schapen om programma's niet op te slaan d.m.v. to¬ 
kens, maar gewoon zoals ze op het scherm staan, dus 
teken voor teken. Elk teken heeft in de computer een 
eigen code, de z.g. ASCII code. Deze codes zijn voor 
een groot dee I gestandaardiseerd en zorgen voor een 
makkelijke koppeling tussen twee computersystemen. 

Zo ook in ons geval. Als we een BASIC programma van 
een PC willen gebruiken op een MSX computer, den 
moet het eerst op de PC worden weggeschreven als een 
ASCII file. Dit wordt gedean door het programme op 
de vo1geode manier op disk vast te leggen: 

SAVE"PRGRNAAM.BAS",A 

De ",A" achter de SAVE instruktie duidt op het ASCII 
wegschrtjven. Deze file kunnen we nu probleeemloos 
inlezen op onze MSX computer. Omgekeerd geldt pre- 
cies dezelfde procedure. 

MSX DOS 

MSX-DQ5 is het disk operating system voor de MSX 
homecomputer. Verschillende fabrikanten leveren het 
mee, andere verplichten u tot een aparte aanschaf. 

Het MSX-DOS is een 8-bits versie van het PC- ofwel 
MS-DOS. Dat betekent dat de belangrijkste commando's 
zijn gehendhaafd. 

De formatering en schijfindeling zijn wederom gelijk 
aan die van de PC's. Zoals we reeds vermeldden is 
het gebruiken van PC-machinetaalprogramma's niet 
mogelijk op uw MSX. Wat kunnen we dan aanvangen met 
de overeenkoinsten tussen M5X-D0S en MS-DOS? 

Hier komt ou iets op de proppen dat MSX echt heel 
erg sterk maakt. Het is nl. mogelijk om z.g. DATA- 
files tussen de twee systemen uit te wisselen. Een 
DATA-fiLe kan bijvoorbeeld een bestand zijn uit 
dBase-11. 

Stel, ik werk op kantoor op een I9M-PC en thuis heb 
ik een Spectravideo SV 738 X'Press met daaraan ge- 
koppeld een 5V 707 diskdrive. Op de IBM werk ik met 
dBase-11 en thuis heb ik datzelfde programme Inpen 
onder MSX-DOS. Ik kan nu als ik dat wil 's avonds 
mijn IBM schijfje mee naar huis nemen, dat in mijn 
X'Press inlezen. en de dBase gegevens op m'n 3.V' 
schijfje kopieeren. Op deze manier kan ik thuis 
verder werken waar ik op kantoor niet meer aan toe 
was gekomen. 

Bovenstaande eigenschappen geven duidelijk weer wat 
de kracht is van MSX naast allerlei mooie spelletjes 
spelen. Wat u echter wel in uw achterhoofd moet 
houden, is dat PC's beschikken over een 80-kolommen 
tekstscherm en dat BASIC programme’s die daarvan 
gebruik maken, niet zonder aanpassing naar 40 kolom¬ 
men np uw MSX computer functLoneren. Een gunstige 
uitzondering op deze regel vormt bij deze de Spec¬ 
travideo X'Press met MSX-DOS, CP/M en Disk BASIC 
onder 80 kolommen, maar ook MSX-II computers met 
MSX-DOS en Disk 3A5IC onder 80 kolommen bieden be- 
tere mogelijkheden. 

Een X'Press heeft wat betreft het thuis verder wer¬ 
ken het grootste potentieel, vanwege het meegelever- 
de CP/M operating system, waaronder veel profess to¬ 
ne le software beschikbaar is. 0m enkele programme's 
te noemen: dBase-11, Wordstar, Mu 1tipian, turbo 
pascal etc. 

Volgende keer zullen we wat meer vertellen over MSX 
en CP/M. Ook hierover bestaan veel misverstanden, 
maar deze zullen na het volgende artikel aardig uit 
de wereld zijn geholpen. Tot de volgende keer. 

Hans Klopper 
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Telecommunicate & databanken 


TELECOMMUNICATIE 


Wat versta je daar nu onder? 

Wei, In cns geval: het communiceren van 2 computers 
Cook van verschillende merken). Dat kan een- of 
twee- riehting verkeer zijn. 

Wat heb je er voor nodig. 

1.. . een telefoonaansluiting. 

2.. . een computer. 

3.. . een modem (MOdulator-DEModulator) 

4.. . software (rompack). 

Telefoon en computer zijn ons alien bekend, maar bet 
modem en de bijbehorende software nog niet. Het 
MOOEM zet de nullen en enen (waarmee een computer 
werkt) am in hoge en minder hoge tonen, die het 
telefoonnet op zijn beurt weer begrijpt (module- 
ren). Het modem aan de andere kant vertaalt de 
piepjes weer in 0-en en 1-en (demoduleren). 

Op deze manier kan de ene computer dus met de andere 
"praten". Dat praten gaat volgens een gestandaar- 
diseerd protocol, zodat -ook al zijn het allemaal 
verschillende computers -de communicatie toch vlot 
verloopt. De software is wel computergebonden, zodat 
een MSX-er ook MSX software nodig heeft. 

Waarom schaf je nu een MODEM aan? 

Daar kunnen verschillende redenen voor zijn: de een 
zal hevig qeinteresseerd zijn in 1 zakelijke' 
informatie (in de grate VIDITEL bank) over de 
huizenmarkt, vertrektijden van de KLM, seksclubs, 
dagbladen, reisbureau's, verzekeringen enz.enz. Er 
zijn zoveel informatieleveranciers, dat er zelfs een 
gids wordt geleverd bij het Viditel abonnement (PTT) 
ter grootte van de Gouden Gids! 

Daarnaast bestaan er de 'prive' databanken; wel 300 
misschien, die vaak gerund worden door 1 of 2 
mensen, draaiend op een PC of gewoon een HOME 
Computer. Deze banken stellen doorgaans pagina- 
ruimte beschikbaar (soms tegen betaling) die een 
ander kan vullen met informatie. Ze zijn niet zo 
groot en de toegang is veelal gratis. (De telefoon- 
kosten helaas niet !). 

Dan is er nog een andere categorie, die een modem 
aanschaft om te kunnen communiceren met * mede- 
hobbyisten. Het leuke hierbij is dat je zelf een 
data-bankje op kunt zetten. Gewoon een paar pagina's 
tekst, verfraaid met grafische tekens en gevuld met 
wat informatie over dingen waarvan je denkt dat een 
ander ze wil lezen. Dit alles zet je op schijf en 
je zet je computer bijvoorbeeld 's avonds en 's 
nachts aan, zodat een ander bij jou die informatie 
kan lezen. Ook kun je (bij bepaalde modems) 
rechtstreeks van schijf naar schijf programma's 
sturen. 

Wat voor modems zijn er nu en wat is het verschil? 


Naast de hierna te bespreken modems zijn er vast nog 
andere mogelijkheden (ik denk hierbij aan het huren 
van een PTi modem (flO,- per maand) waarbij je dan 
een apart software pakket koopt (bijv. Viditel van 
MT). Dit zijn de zgn. akoustische modems, waarbij de 
hoorn van de telefoon op het modem wordt gelegd. 

Ik ben echter in de gelegenheid gesteld 2 modems te 
testen: TELTRON van Tron en MT-TELCOM van Micro 
Technology. 

Nu is het niet de bedoeling dat ik hier een 
moeilijke verhandeling ga houden over telecom- 
municatie, doch slechts de ervaring vertel van een 
zeer enthousiaste hobbyiste. 



Allereerst de uitvoering. 

De TELCOM bestaat maar uit een -zij het robuuste- 
kast die in het ROMslot van de computer gestoken 
wordt. (Modem + software in een). 

De TELTRON bestaat uit een klein kastje (15x18x4): 
het modem en een insteekmodule voor het ROMslot. De 
aansluiting in het ROMslot zit in de huidige versie 
nog niet in een cartridge en is wat wiebelig. De 
TELTRON geeft door middel van lampjes aan wat er 
gebeurt: zenden/ baut/ online/ in gesprek enz. Bij 
de TELCOM is dat niet zichtbaar. De commando's van 
beide modems zijn verschillend. De TELCOM werkt met 
'/' (letter) en de TELTRON met Functie-toetsen en 
enkele letters. 

Opslagkapaciteit. 


De TELCOM heeft, als hij gestart wordt, 34 
geheugenplaatsen (nog uit te breiden door klein 
programma te laden) en de TELTRON heeft er 15. Deze 
geheugenplaatsen worden gebruikt om een beeId uit 
een databank, dat je wilt bewaren, op te slaan om 
het na het verbreken van de telefoonverbinding te 
kunnen bekijken en weg te schrijven naar Disk of 
Cassette. De TELCOM heeft een automatisch geheugen: 
dat wil zeggen dat je je niet hoeft te bekommeren om 
de vraag of je net op een bepaalde geheugenplaats al 
een vorig beeld hebt gezet, waardoor je de kans 
loopt er overheen te schrijven en dus de vorige 
informatie kwijt bent. Bij de TELTRON moet je wel 
voorzichtig zijn, want die doet dat niet auto¬ 
mat isch. 

De TELCOM heeft een ROTQR-functie. 


Met deze Rotor kun je de beelden, die je in het 
geheugen hebt gezet (uit een databank hebt gehaald 
of van schijf of cassette hebt geladen) op je scherm 
laten wisselen en zo automatisch bladeren in je 
eigen geheugen. De TELTRON heeft deze ROTQR-functie 
niet. Wat de TELTRON wel heeft, en wat ik bijzonder 
plezierig vond, is het feit dat, wanneer je een 
telefoonnummer ingetoetst hebt, je d.m.v 'V'+ return 
hetzelfde nummer nog eens kunt draaien. Bij de 
TELCOM ben ik dit niet tegengekomen. (Red. De TELCOM 
heeft deze mogelijkheid niet in 'Viditel-mode' maar 
wel in 'Terminal-mode'). 

Ook kun je voor beide modems een zg. .TOE of .BAT 
file maken waarin je van te voren de telefoonnummers 
+ codenummers van een databank vastlegt. Doch dit 
doe je eigenlijk alleen voor databanken die je vaak 
gebruikt en als je met cassette werkt kan dat al 
niet. 

Bij beide modems kun je omschakelen van VIDITEL mode 
naar Terminal mode en omgekeerd; bij de Teltron 
d.m.v. de funktietoetsen en bij de Telcom d.m.v. een 
optie uit een menu. 
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De VIDITEL-mode gebruik je in de meeste gevellen. In 
deze mode communiceer je met databanken, die volgens 
het zg. Viditel- protocol werken (o.a. VIDITEL PTT 
en vele kleinere databanken). Soms moet je echter 
voor communicatie naar de TERMINAL-mode. In deze 
terminal mode kun je dan zelf diverse instellingen 
maken al naar gelang je nodig hebt voor goede 
communicatie. Ook de Printer kun je goed gebruiken. 
Pagina's binnengehaald (of zelf gemaakt) kun je 
keurig uitprinten. Oat wil zeggen: je krijgt een 
screendump op papier van de pagina die op dat moment 
op je scherm staat. In de TERMINAL mode kun je de 
printer als TELEX gebruiken; elk ingetoetat karakter 
wordt dan op papier gezet. 

Beide modems kennen uitbreidingen op bun oor- 
spronkelijke versie. Oe TELCOM in de vorm van 
0VERLAY-files, te laden vanuit MTbank in VIDITEL. De 
TEl.TRON in de vorm van een uit bijv. de Infotron 
(05410-19813) of AvHtel (030-627577) databank te 
laden nieuwe software versie (machinetaal), die dan 
op schijf of cassette komt en zo met bload"",R 
geladen kan warden. 

Beide modems hebben in de VIDITEL-mode een bijzonder 
aardige faciliteit om zelf plaatjes te maken. Na het 
intoetsen van ESCAPE-codes worden de kleine letters 
en cijfers van het toetsenbord Grafische tekens. Het 
is leuk om hiermee plaatjes te maken (reclame of 
boodschap [de gewone letters werken ook nog]), ze te 
saven of op te slaan in je geheugen en naar het 
prikbord van een databank te zenden. Heus het werkt: 
regel voor regel zie je de tekening of tekst naar de 
databank verhuizen en als je later het prikbord weer 
opzoekt kom je daar je eigen plaatje tegent Wat ook 
aardig is, is dat je direct op je beelscherm met de 
andere hobbyist kunt "praten", dat wil zeggen dat de 
tekst die je schrijft bij jezelf zichtbaar is en ook 
bij de ander. Wanneer je dit in Viditel-mode doet 
heb je slechts de onderste regel tot je beschikking, 
maar in Terminal-mode het hele beeldscherm. Ook hier 
geldt dat een Telcom bezitter wel op deze manier kan 
bellen om met een Teltron bezitter te praten, maar 
niet andersom. Wel natuurlijk Teltronners onderling. 
Het verschil zit hem in het feit dat de Teltron een 
ANSWER-mode ingebouwd heeft (hij kan dus de telefoon 
opnemen) en de Telcom kan dat niet. 

Wat is er nu eigenlijk voor verschil tussen beide 
modem-systemen? Wel, mijn idee van Telecommunicatie 
hoeft natuurlijk niet ieders idee te zijn. 
Vooropgesteld: ik ben een hobbyiste en geen 

zakenvrouw. Ik was bijvoorbeeld snel uitgekeken op 
avond aan avond alleen databanken te bellen. Ze zijn 
beslist niet onaardig, vooral de specifieke 

MSX-banken zijn voor on 9 MSX-ers de moeite waard, 
maar aan de andere kant benut je dan toch slechts 
een klein deel van de communicatiemogelijkheden 
wanneer je alleen KIJKEN kunt. 

Dus wat verwacht je dan als enthousiaste amateur van 
telecommunicatie??? 

Om te beginnen communicatie met andere modem 

bezitters (uit het hele land). 

- *- het laden van elkaars software zo van schijf 

naar schijf. 

zelf beelden maken en op schijf zetten (klein 

data bankje). 

Deze mogelijkheden zijn (helaas) niet op de TELCOM 
aanwezig. Met de TELTRON is dit (gelukkig) wel 
mogelijk. Wel is het voor TELCOM bezitters mogelijk 
te bladeren in "databanken 1 ' van de TELTRON 
bezitters, doch software uitwisselen van schijf near 
schijf,het maken van een databank, toegankelijk voor 
anderen, kan alleen met het TELTRON-modem. 

Volgens Micro Technology komt er binnenkort een pro- 
gramma waarmee het wel mogelijk wordt zelf een 
databank te maken, maar deze software gaat wel El, 
950,- kosten. En bovendien kun je dan nog geen 
software van schijf naar schijf sturen! 

De prijs van beide modems in de huidige uitvoering 
is E699,- 


Conclusie (geheel persoonlijk). 

Wanneer ik zuiver voor zakelijke doeleinden een 
modem wil aanschaffen, zou ik zelf de voorkeur geven 
aan de TELCOM, vanwege het grotere aantal pagina's 
dat in het geheugen kan worden opgeslagen en vanwege 
zijn RQTQR-functie. 

Doch op het moment, dat er ook maar lets van 
hobbyisme om de hoek komt kijken, kies ik voor de 
TELTRON. 


INEKE ESSENBURG 



DUIK EENS IN EEN DATABANK 


Aansluitend op het verhelderend relaas van Ineke 
Ess enburg willen we hierbij meteen twee van de - 
gratis- databanken voorstellen; COMPIE/TEL en AvH¬ 
tel. 

Compie/tel is een Viditelbank voor en door MSX-ers 
en werkt met: 

- De Sony MSX-2 

- Een kleurenmonitor 

- Een matrixprinter 

- Een Teltronmodem 

Compie/tel is elke avond van 21.00 tot 07.00 uur on¬ 
line (= met de computer) te bellen op telefoonnummer 
01880-38630. 

Men kan via het modem inzage krijgen in de beelden 
en de informatie over MSX. Deze informatLe wordt 
gratis aan elke gebruiker aangeboden, 

Ook is het mogelijk eigen ervaringen te laten plaat- 
sen of vragen in de diverse rubrieken te laten 
opnemen, zodat andere MSX-gebruikers er misschien 
een antwoord op weten en dat via Compie/tel weer 
doorgeven. Op deze manier kunnen MSX-ers elkaar 
helpen en informatie of tips uitwisselen. 
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Om Compie/tel te kunnen bereiken heb je natuurlijk 
wel een (M5X) computer en een modem nodig. Verder is 
het mogelijk om brieven aan de sysop (SYStem Opera¬ 
tor ofwel eigenaar) te sturen, die hij dan kan 
plaatsen of zelf kan beantwoorden. 

Tussen 19.00 en 21.00 uur bestaat de mogelijkheid om 
via het bovenvermelde telefoonnummer rechtstreeks 
met de sysop te bellen, als je problemen hebt of 
iets wilt vragen over Compie/tel. Of als je bijvoor- 
beeld iets hebt, dat je graag in Compie/tel ge- 
plaatst wilt zien. Wel de computer en het modem even 
van de telefoon halen gedurende deze tijden, want de 
databank is dan nog niet in werking. 

Mensen, die graag een demonstratie willen zien van 
de MSX-2 of van de Viditelbank zelf, kunnen bellen 
voor een afspraak. Dit is natuurlijk erg fijn, als 
je overweegt een modem te kopen en nog niet goed 
weet, wat de mogelijkheden van zo'n apparaat nu 
precies zijn. Iedereen is van harte welkom en krijgt 
uitleg op alle vragen betreffende het modem-gebeu- 
ren. 

Deze uitleg, c.q. demonstratie is pure hobby en kost 
niets. Alleen kan het gebeuren, dat men nog niet 
meteen de volgende avond kan komen in verband met de 
drukte, maar er wordt altijd plaats en tijd voor je 
emaakt. Nogmaals het telefoonnummer: 01880-38630. 
Met dank aan Richard Verhoog - Sysop Compie/tel) 



Verder naar AvH-tel, eveneens een Viditelbank, die 
draait met een MSX Teltron 1200. Deze databank is 
gratis beschikbaar voor iedereen, maar in het bij- 
zonder voor de MSX-ers. De gebruikers worden gein- 
formeerd over hun hobby, bijvoorbeeld door cursussen 
(op het moment alleen BASIC, maar er volgen er 
meer), het beantwoorden van vragen, het geven van 
tips, het verstrekken van gratis software (o.a. uit 
vroegere uitgaven van de MSX-Gids) etc. etc. 

De databank is er voor de gebruiker en wordt dan ook 
aangepast aan zijn/haar wensen, waardoor bijvoor¬ 
beeld een receptenrubriek is ontstaan. 

Net als Compie/tel is AvH-tel een pure hobby zonder 
commerciele bijbedoelingen. 



AvHtel UU MSX-bank 



AvH-tel is te bereiken via telefoonnummer 030-627577 
op werkdagen tussen 20.00 en 08.00 uur en in het 
weekend tussen 12.00 en 08.00 uur. Zodra er een 
tweede telefoonlijn beschikbaar is, zal AvH-tel 24 
uur per dag on-line stand-by zijn. 

(Met dank aan Arie van Hussen - Sysop AvH-tel.) 



FILOTEL 

Het Bronings© aoftwarehuis Filosoft 
is gestart met een databank volgens 
het Viewdata-protocols FILOTEL. 

ledere huiscomputeraar die met 
Viditel kan communiceren, kan ook 
-en zonder 1idmaatschapskosten e.d.- 
met FILOTEL kontakt opnemen. 

De miniatuur—Viditel bevat BOO 
paginate nieuws en tips voor 
gebruikers. Er is ook plaats inge- 
ruimd voor een prikbord, waarop men 
mededelingen voor collega- gebrui¬ 
kers, kwijt kan. 

FILOTEL is 24 uur per dag bereikbaar 
onder tele-foonnummer: 050-145174 

Nadere iniichtingen kunnen worden 

verstrekt doori 

Henk Menninga <050-13746). 
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Hallo mede-avonturiers, 

Daar is ze weer, na in het vorige nummer 
gestraald te hebben van afwezigheid. 
Gelukkig hadden we Harry Schiffelers als 
goede vervanger; de fans van "Elidon" 
zullen wel blij geweest zijn met de kaart, 
die Harry uren tekengenot verschaft heeft. 

Zelf ben ik eigenlijk niet zo erg aktief 
geweest met de adventures, want in het 
dagelijkse leven was het de afgelopen 
maanden ook een en al avontuur. Het groot- 
ste ervan was de omschakeling van de Apple 
computer naar de MSX, want alle abonnees 
raoesten meeverhuizen. Die abonneebestanden 
werden bier verwerkt met d-Base II, maar 
van dat programma bestaan natuurlijk ver- 
schillende versies voor de diverse compu¬ 
ters. De enige MSX-computer, die voor mij 
in aanmerking kwam, is de SpectraVideo 
X'Press, omdat deze behalve MSX-DOS ook 
CP/M aankan. Bij de importeur, Electronics 
Nederland BV in Amsterdam, had men nog een 
pre-fabrikatieraodel staan, dat ik over kon 
nemen, maar tijdens het inwerken bleek dat 
toch niet zo'n goede keus te zijn. Vooral 
het kopieeren ging -zacht gezegd- niet 
geheel naar wens en dat bleek aan de inge- 
bouwde disc-drive te liggen. Uiteindelijk 
hadden we alle benodigde kaarten en pro- 
gramma's bij elkaar om de bestanden over 
te zetten en kwam Hans Klopper met een 
nieuwe X"Press onder de arm aanzetten om 
aan de kopieerklus te beginnen. Helaas.... 
ook de nieuwe X'Press vertoonde binnen 5 
minuten al kuren en met vereende krachten 
werd toen van twee kapotte X'Pressen 1 
super X'Press gebouwd, waarop ik momenteel 
dit artikel met Wordstar zit in te tikken. 
Na enkele avondjes hard werken lukte het 
overzetten van de bestanden ook, zodat nu 
de hele MSX-Gids ploeg "Applevrij" is. Het 
enige, dat nu nog aan mijn geluk ont- 
breekt, is een RGB-aansluiting op de 
X'Press, zodat ik ook nog redelijk kan 
lezen, wat er op het beeldscherm van mijn 
(kleuren-) monitor staat. En als leuke 
bijkomstigheid wordt de beeldkwaliteit van 
de spelletjes dan eveneens stukken beter. 

Goed, laten we het daar maar eens over 
gaan hebben, want dat is uiteindelijk de 
opzet van deze rubriek. Voor de vakantie 
(in april) heb ik me een paar avonden 
beziggehouden met het nederlandstalige 
adventure "Mandragore", dat qua opzet doet 
denken aan mijn geliefde "Ultima”, maar 
tijdens het spelen toch tegenvalt. Vooral 
het vechten met de monsters, die je onder- 
weg naar de 9 verschillende torens tegen- 
komt, duurt veel te lang en komt veel te 


vaak voor, waardoor dit adventure mij al 
gauw ging vervelen. 

De vakantie werd doorgebracht in Spanje, 
waar tot onze verrassing een vrij behoor- 
lijke MSX-cultus bestaat. We hebben er een 
aantal Spaanse MSX-bladen gekocht, die er 
stuk voor stuk zeer luxe uitzien, maar 
waarvan de inhoud behoorlijk achterloopt 
bij die van de West-Europese bladen. Inte- 
ressant is wel, dat daar toch ook weer 
MSX-computers op de raarkt zijn, die je 
hier niet ziet. De prijzen van de hardware 
liggen er echter zo hoog -ongeveer het 
dubbele van wat je hier betaalt- dat het 
geen enkele zin heeft om die daar te ko- 
pen . 

Anders ligt het voor de software. Voor 300 
Ptas. (ca. fl. 6,—) koop je er hardstikke 
leuke pakketten, die bestaan uit een cas¬ 
sette met -meestal- de handleiding in 
boekvorm erbij. De spellen zijn vrij een- 
voudig van opzet, maar voor die prijs is 
zoiets toch een alternatief souvenir. Zelf 
heb ik een spaanstalig tekst-adventure 
gekocht van Guss, die in een piramide op 
zoek moet naar een verborgen schat en dat 
is zeer leerzaam. De volgende keer, dat ik 
in Spanje ben, kan ik in ieder geval bij- 
voorbeeld vragen: "Hoe oud is deze mura- 
mie?" 

Guss moest voorlopig in een betoverde 
kamer blijven zitten, totdat ik weer eens 
tijd heb om me met hem bezig te houden, 
want inmiddels is er in Nederland ook van 
alles aan nieuwe software uitgekomen. O.a. 
"Knightmare”, waardoor ik meteen verslaafd 
was en er van adventuren nog niet veel 
terechtkwam. De afgelopen weken heb ik 
mezelf echter met geweld van "Knightmare" 
vandaangehouden en -wel met ontwennings- 
verschijnselen en een verkrampt duimpje- 
me op een tweetal nieuwe adventures ge~ 
stort: 

ZAKIL WOOD. 

Eindeliik eens een adventure, dat niet van 
Level 9 afkomt en toch een behoorlijke 
kwaliteit biedt. Zakil Wood is een produkt 
van Mr.Micro en wordt geleverd op casset¬ 
te. Doel ervan is het terugvinden van een 
magische robijn, die je dorp eeuwenlang 
beschermd heeft en die gestolen is. Wat 
het eerste opvalt bij dit adventure, is 
dat de graphics zeer geavanceerd zijn: de 
plaatjes zijn fraai getekend en -wat nog 
belangrijker is- ze staan razendsnel op 
het scherm, in tegenstelling tot de pro- 
dukten van Level .9, waarbij de opbouw zo 
traag verloopt. 
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ffaTT grealaavenTurep^^ott have 

been chosen to be ■«# guide in 
■y guest to recover the stolen 
RUBV OF ZAKIL" - 

Press any key ! 



Wat de teksten betreft, is Zakil Wood nog 
in het beginstadium, Er kunnen alleen 
commando s van 2 woorden gegeven worden, 
waarbij het "begrijpend vermogen" van de 
computer erg beperkt is. Meestal krijg je 
als antwoord, dat hetgeen je wilt niet 
mogelijk is. Het lijkt dus alleraaal erg 
eenvoudig en misschien is het wel te 
simpel, want ik krijg het niet voor elkaar 
verder dan de eerste 5 plaatjes te komen. 
Bij Mr.Micro is het echter vrij gemakke- 
lijk om een "hint—sheet" aan te vragen: 
gewoon een aan jezelf gerichte en uiter- 
aard gefrankeerde enveloppe opsturen en 
vermelden waar je de cassette gekocht 
hebt. Dat zal ik dan ook maar eens gaan 
doen. 

Voor zover ik het nu kan beoordelen, is 
Zakil Wood toch een goed adventure en is 
de aanschaf ervan zeker aan te raden, 
alleen niet voor Philips MSX-2 bezicters. 
De prijs voor de cassette is f1. 39,— 

Beeld #-■**-** 

Geluid 

Spelkwaliteit * * * * 
Foutafhandeiing 
Gebruiksgemak 
Documentatie* * * * 

Prijs * * * * 

***** ZEER GOED 

**** GOED 
*** REPELIJK 
** MATIG 

* SLECHT 


THE PRICE OF MAGIK 

~ ~ ' — — i — -— - - 

De naam Level 9 zal waarschijnlijk wel 
altijd in deze rubriek voorkomeo, want het 
blijft de koploper onder de adventure 
producenten voor de MSX, zowel wat kwali- 

teit als kwantiteit aangaat. The Price of 
Magik is het nieuwste prcdukt van Level 9 
en er is weer hard gewerkt om het nog een 
tikje beter te maken dan voorganger Red 
Moon . 

Ten eerste is het gegeven eens anders: in 
plaats van het vinden van een bepaald 
objekt (bij Red Moon het kristal) is het 
bij The Price of Magik de bedoeling magi- 
sche krachten te verzamelen om op het 
laatst de grote boosdoener met eigen wa- 
pens te kunnen verslaan. Je begint dus als 
tovenaarsleerling en als je alles goed 
doet, eindig je als Merlijn. 


Het geheel speelt zich af in The House of 
the Red Moon, een soort spookhuis, waarin 
je verschillende engerds kunt tegenkomen, 
die echter niet allemaai bevochten moeten 
worden. Sommigen kun je gebruiken door ze 
commando's te geven, zoals bijvoorbeeld de 
weerwolf. Waarvoor je hem kunt gebruiken, 
weet ik nog niet, want zoals gebruikelijk 
bij Level 9, is het spel zonder clue-sheet 
eigenlijk niet te spelen. (Aan de reakties 
te merken zijn er zat mensen, die er zelfs 
met ,clue-sheet niet uitkoraen, zo moeilijk 
en weird zijn de Level 9 adventures) 

Bij de bespreking van Zakil Wood had ik 
het al over de wat trage graphics van de 
Level 9 spellen, maar bij The Price of 
Magik is er toch weer lets verbeterd: de 
opbouw van de plaatjes (die overigens 
bijna kopieen zijn van die uit Red Moon) 
is wat sneller geworden en je hoeft nu 
niet meer te wachten tot het hele beeld is 
opgebouwd. 

Qua tekst is Level 9 echter bijna bij het 
hoogtepunt aangekomen: bij The Price of 
Magik kun je hele zinneo opgeven, zelfs 
meerdere zinnen na elkaar, waarna alles 

wat je opgegeven hebt in volgorde wordt 
afgewerkt met eventueel commentaar, waar- 
door je toch een idee krijgt, dat je echt 

met de computer aan het "communiceren" 
bent. 



Het allermooiste van The Price of Magik 
zit hem eigenlijk niet in het spel zelf, 
maar in de bescherming ervan. Het heeft 
geen enkele zin te bellen met een smoes 
als: "Ik heb een legale cassette, maar die 
heb ik van raijn buurman en die was de 
handleiding kwijtgeraakt, dus kan ik geen 
clue-sheet aanvragen. Weet jij, wat 

ik.?" Je komt op een gegeven moment 

raooi vast te zitten, in ieder geval al, 
als je het spel heeft geSAVEd en je wilt 
"Restore" opgeven. Bij de cassette zit 
namelijk een ingenieus apparaatje, de z.g. 

"Lens Lok". Dit is een raampje met een 
venstertje, dat gedeeltelijk mat en helder 
is. Nadat je "Restore" hebt opgegeven, 
verschijnt er op het beeldscherm een soort 
"H", waarop je de maat van het raampje 
moet afpassen met behulp van de cursor- 
toetsen, vervolgens de Lens Lok moet vou- 
wen en dan moet er door het heldere ge- 
deelte van het venstertje "O.K." te lezen 
zijn. Na een druk op de spatiebalk ver¬ 
schijnt er een code, die zowel uit hoofd- 
als kleine letters of een eombinatie daar- 
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van kan bestaan en als die code goed is 
ingevoerd, kun je je geSAVEde spel pas 
tevoorschijn halen. Tn een gevorderd sta¬ 
dium kan dit ook tijdens bet spelen gebeu- 
ren, dus zonder Lens Lok heb je geen 
schijn van kans. 

Voor fl. 45,— heb je echter de legale 
versie inclusief Lens Lok en die is zeker 
goed voor maanden adventureplezier.... 
Bezitters van de Philips MSX 2 kunnen ook 
aan het adventuren, want The Price of 
Magik was -net als The Boss- op deze com¬ 
puter te laden. Bovendien was dit de eer- 
ste Level 9 cassette, waarvan niet eerst 
een kopie hoefde te worden gemaakt, alvo- 
rens er gespeeld kon worden, dus we mogen 
aannemen, dat de fabrikant de klachten van 
de slechte opnamekwaliteit van de vorige 
cassettes ter harte heeft genomen. 


Beeld * * # * * 
Geluid* * * * * 

Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 

Prijs* * * * * 

***** ZEER GOED 

**#* GOED 
*** REDELMK 
*■* MATIG 

* SLECHT 


Tot slot nog een duik in de fanmail: 
S.Harmsen uit Ede vraagt om tips voor 
Sorcery. De belangrijkste tip, die ik wat 
Sorcery betreft kan geven is om er vooral 
voor te zorgen, dat je een goede versie 
ervan hebt. Het is gebleken, dat er zich 
zowel onder de Aackosoft exemplaren als 
die, welke rechtstreeks uit Engeland ko¬ 
ine n , versies bevinden, waarvan de verti- 
kale barrieres niet werken. En dan kun je 
precies weten, wat je moet doen, maar dan 
gebeurt er nog niets, Zelf heb ik zo'n 
exeraplaar gehad en dan helpt er maar 1 
ding: terug naar de winkel en ruilen, net 

zolang totdat je een goede hebt. 

Verdere tips: probeer een exemplaar van 
het Engelse blad MSX User van augustus 
1985 te pakken te krijgen. Daarin staat 
precies hoe je Sorcery moet uitspelen en 
er staat een kaart in van de verschillende 
speelvelden. Hetzelfde geldt voor de "MSX- 
Computing" (eveneens uit Engeland) van 
enkele maanden later. Ik zal er een paar 
tips uitpikken, want persoonlijk vind ik 
het eigenlijk niet zo leuk, als alles 
voorgekauwd wordt: de tovenaar achter de 
kei.der kan bevrijd worden met de "scroll" 

in de "meadows". Pak een sleutel en ga 
door de onderste deur links. Blijf naar 
links gaan totdat je bij de "Hideout" 
komt, waar je ook weer een tovenaar kunt 
bevrijden. Voor de tovenaar bij "Stonehen¬ 
ge" heb je de "Sorcerer's Moon" nodig. 

De tweede brief komt van Tamsin Elie uit 
Brugge in Belgie en betreft het ontbreken 
van de handleiding bij Elidon. Hoewel de 
brief van 24/6 is, neem ik aan dat het 


probleem zich inmiddels vauzelf heeft 
opgelost dankzij de vrij uitgebreide be- 
schrijving van Harry Schiffelers in MSX- 
Gids nummer 5. Jammer genoeg is het nu 
eenmaal zo, dat de bladen in Belgie nogal 
laat in de winkels liggen, vergeleken bij 
Nederland, maar daaraan kan ik als uit- 
geefster niets doen. De exemplaren voor 
Belgie gaan op dezelfde dag als die voor 
de Nederlandse winkels naar Betapress en 
die zorgt voor de doorvoer naar A.M.P. in 
Brussel. Volgens de douanepapieren neemt 
dat niet meer dan 1 of 2 dagen in beslag, 
dus waarom het dan zo lang moet duren, eer 
ze bij jullie in de winkels liggen, is raij 
een raadsel. Voor de Belgische abonnees 
geldt hetzelfde: de Nederlandse PT' : doet 
het hela pakket op de dag van aanlevering 
op de nachttrein naar Belgie en wijt elk 
oponthoud aan de Belgische posterijen. 
Op het ogenblik schijnen de bladen van de 
abonnees eerder te arriveren dan de win- 
kelexeraplaren, dus is het misschien toch 
aan te raden een abonnement te nemen, 
vooral omdat de komende extra editie van 
September niet in de Belgische boekwinkels 
verkrijgbaar zal zijn. 

Als laatste nog even dit, Elie: het is erg 
aardig, dat je een gefrankeerde enveloppe 
had bijgesloten voor antwoord, maar ik 
woon in Nederland en onze PTT vertikt het 
eigenaardig genoeg om Belgische postzegels 
af te sterapelen. Voor dat doel zijn er bij 
het postkantoor Internationale Antwoord 
Coupons verkrijgbaar, die in elk land van 
de wereld ingeleverd kunnen worden. 

Tot de volgende keer allemaal. Veel ple- 
zier met het adventure, waarmee je bezig 
bent of waaraan je gaat beginnen. 

In afwachting van m'n clue-sheets ga ik 
nog 1 keertje "Knightmaren". 

Wie heeft er voor mij een tip, waar ik een 
joystick vandaan haal, waarvan je niet 
zo'n kramp in je handen krijgt. 

JOCELYN MET HET KROMME DUIMPJE. 


GOLDDIGGER 


De computers die een foutmelding geven op 
regel 30300 van het programma "Golddigger" 
kunnen dit programma wel draaien wanneer 
de dubbele punt + de verklarende tekst 
achter de machinecodes (regels 30300 t/m 
30510) geheel wordt weggelaten. 

Deze beschrijvingen van de machinecodes 
kunnen trouwens bij alle programma's 
weggelaten worden. Zij worden alleen 
opgegeven voor diegenen die interresse 
hebben in de stukken machinetaal en via 
deze extra REM-regels de machinetaal 
routines zelf -met behulp een assembler- 
kunnen verwerken. 
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Bereikbaar met tram lijn 7 of 13 
en bus lijn 15, 19 of 18. 

Dagelijks geopend van 10.00 tot 18.00 uur. 
Op koopavonden tot 21.00 uur. 

’s maandags van 13.00 tot 18.00 uur 


Wij hebben het grootste assortment MSX-software en boeken in voorraad 
Ruim 350 titels en 100 boeken en natuurlijk alle tijdschriften. 

Bij ons kunt u alle software bekijken, ookde nieuwste en natuurlijk ook MSXII 

***************************************************************^ 


Wij zijn dealer voor alle grote merken zoals Spectravideo, Sony, Philips, 
Filosoft en vele Engelse Softwarehuizen. 

Wij leveren hardware aan scholen en bedrijven tegen scherpe prijzen. 


STUNTPRIJS VOOR DE SPECTRAVIDEO 738 ”X-press”. f 999,-- 

Kompleet met Wordstar en groene monitor. f 1699,-- 

Met micropro pakket en groene monitor. f 1999,-- 

BEL VOOR INFORMATIE EN PRIJZEN VAN ANDERE MSX MERKEN 020-123206 


Regelmatig zijn wij op de diverse computerbeurzen te vinden met vele 

speciale aanbiedingen #1-100 beurs #info beurs #MSX beurs etc. 

***********************************************^ 

Voor informatie over opleidingen, technische problemen en software, kunt u 
ons altijd bellen 020- 123206 of 183001 

PERMANENTE DEMONSTRATIE van MSX 1,2 en diverse randapparatuur 
en viditel/datacommunicatie. 

Uw eigengemaakte programma’s kunt u bij ons laten uitprinten tegen 
kostprijs. 


*****************★************★★**■***********+********************** *^ 



MSX ’’SOFTPOST” 

Van Kinsbergenstraat 62 
1057 PT Amsterdam. 

TeL 020 - 183001 

Bestel telefonisch en u heeft 



heel snel het door u gewenste 
programma in huis. 

(ma-vrij van 10.00 - 14.00 uur) 

Levering onder rembours {f 8,75) 
of na vooruitbetaling (gratis) 
Uitslurtend levering uit voorraad. 
Bij uw bestelling krijgt u tevens 
onze gratis catalogus met ruim 
520 MSX artikelen meegezonden. 
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THE BOSS 


Het leuke van het recenseren van software 
is, dat je af en toe spellen in handen 
krijgt, waarvan je er normaal niet aan zou 
denken ze te spelen. Toen ik dan ook de 
cassette met ''The Boss'* in m'n handen 
gestopt kreeg en op het flapje enige man- 
net jes in voetbaltenue zag staan, zag ik 
het helemaal niet zitten. Ik heb namelijk 
totaal geen verstand van voetbal. Maar 
eenmaal aan het spelen geslagen, ontaardde 
het in een sessie tot diep in de nacht, 
wat op zich al een aanbeveling voor dit 
spel is.. 

De titel "The Boss" houdt in, dat je mana¬ 
ger bent van een (Engels) voetbalteam en 
dat je je elftal door een of meerdere 
seizoenen heen moet slepen, waarbij je 

team dan liefst nog op de eerste plaats 
terecht moet komen. Dat valt niet raee.... 

"The Boss” is in BASIC geschreven en het 
opstarten gaat dan ook vrij traag. Na de 
introduktie, die op sadistische wijze 
vermeldt, dat je er helemaal alleen voor 
staat en verder geen enkele uitleg geeft, 
duurt het vrij lang, voordat je bij de 
eerste vraag komt, die luidt of je een 
geSAVEd spel wilt inladen of niet. Als je 
dan -net als ik- daarvoor al op verschil- 
lende toetsen hebt zitten r amine n, gaat je 
"y" of "n" volledig de mist in en kun je 
opnieuw beginnen. Dus, rustig afwachten! 

Wanneer alles goed is gegaan en je aange— 
geven hebt, dat je met een nieuw spel van 
start wilt gaan, krijg je eerst een over- 
zicht van de teams, waaruit je kunt kie- 
zen. In mijn geval was dat Fulham. Dan kun 
je aan de slag met een overzicht van de 
spelers, die alien een bepaalde waarde 
hebben van 0—9. Je kunt de formatie wijzi- 

gen, bijvoorbeeld veel aanvallers en min¬ 
der verdedigers met een sterk middenveld 
etc. Alleen de keeper, die met een # wordt 
aangeduid, moet op nr.01 staan. Verder kun 
je de spelers onderling van plaats laten 
wisselen, reserves inzetten, spelers kopen 


en verkopen en tenslotte staat er op je 
beeldscherm nog vermeld tegen welke club 
de volgende wedstrijd is en de sterkte van 
die club. Wil je nog meer weten over je 
tegenstander, dan kun je d.m.v. "check” 
een overzicht krijgen van alle clubs met 
hun positie in de "league", het aantal 
gespeelde wedstrijden, de punten enz. 

Als je denkt, dat je een goede ploeg hebt 
samengesteld, druk je op "P" voor Play en 
dan verschijnt er een speelveld op het 
scherm, waarop gedurende 90 seconden een 
wedstrijd wordt gespeeld. ledere keer, als 
er een doelpunt wordt gemaakt, licht het 
scherm op in verschillende kleuren en 
volgt de vermelding: "Goal for (de tegen- 
partij)" of "(Naam speler) scores for 
(jouw club)". Na de eindstand komt er een 
overzicht van alle wedstrijden van die 
week, gevolgd door het klassement (het- 
zelfde dat je d.m.v. "check" kunt opvra- 
gen), waarin je club omhoog of omlaag is 
gegaan, al naar gelang de einduitslag van 
de wedstrijd. Daarna de afrekening: hoe- 
veel er aan toegangsbewijzen is verkocht, 
eventuele andere inkorasten en aan de uit- 
gavenkant de gages voor je spelers e.a. Af 
en toe komt het ook voor, dat een speler 
een been breekt, hetgeen lekker aantikt, 
want dan krijg je een uitkering van de 
verzekering. De speler is dan echter voor 
enkele weken uitgeschakeId, wat niet zo 
gunstig is, als hij een achtje of een 

negentje is. Ook kunnen spelers geschorst 
worden of gewoon geblesseerd, wat verder 
niets oplevert en inhoudt, dat je op de 
transfermarkt vervangers moet kopen. Het 
is zaak de financien goed in de gaten te 
houden, anders kom je bij de bank terecht 
voor een lening en dan betaal je je blauw 
aan aflossingen . 

Al met al vond ik het een leuk en interes- 
sant spel. Je kunt verschillende taktieken 
toepassen. Zo kun je alleen goede spelers 
aankopen en dan heb je natuurlijk meer 
kans wedstrijden te winner), maar ze kosten 
aan de andere kant ook een hoop geld aan 
gages. Op een gegeven moment heb ik alleen 
met "nulletjes" gespeeld, die dus bijna 
niets kosten en toch af en toe een wed¬ 
strijd gewonnen of gelijk gespeeld (verlo- 
ren natuurlijk ook, vooral tegen de "grote 
jongens", die bovenaan in de ranglijst 
stonden). Op die manier kun je je "nulle¬ 
tjes" langzamerhand een hogere waarde 
laten krijgen, waardoor je uiteindelijk 
toch een goed elftal bij elkaar hebt. 

Ik zou zeggen: probeer het zelf eens. "The 
Boss" is uitgebracht op cassette door 
Peaksoft en kost fl. 35,—. 

Een verheugende mededeling voor de MSX2 
bezitters is, dat dit spel geladen kan 
worden op de Philips MSX2. Verder zowel op 
de JVC MSX1 en de SVI X"Press geen laad- 
problemen. 

BEELD *** 

GELUID *** 

SPELKWALITEIT **** 

DOCUMENTATIE *** 

PRIJS *** 


(c) Junior §9 




































































































ZOIDS: 

GEPROGRAMMEERD SCHt'ETEN VOOR GEVORDERDEN. 

Een grafisch zeer fraai uitgevoerd spel 
voor de liefhebber van schietspellen en 
flightsimulators. Wie dus denkt even wat 
weg te gaan schieten, moet hier vooral 
niet aan beginnen * want er komt heel wat 
voor kijken om Zoids behootlijk te kunnen 
beheersen. 

Ten eerste is daar de uitgebreide handlei- 
ding met de voorgeschiedenis van de Zoids 
oorlog, een beschrijving van de diverse 
engerds, die de Zoids steden en ruimte— 
schepen bevolken en een uitleg van de 
opbouw van het beeldscherm. Op bet scherm 
zie je een kaart, waarin je alle kanten op 
kunt bewegen en acht verschillende vakjes, 
waaruit je je informatie kunt halen door 
met de cursor of de joystick op het be- 
treffende vakje te gaan staan en op "fire" 
te drukken, Vak 1 identificeert een vijan- 
delijke Zoid, vak 2 is je scanner, waarmee 
je objecten kunt opsporen, 3 geeft infor- 
matie over de stand van zaken (bijvoor- 
beeld hoeveel munitie je nog hebt, de 
schade die je ruimteschip heeft opgelopen 

etc.), met 4 kun je je kanonnen afschie¬ 
ten , terwijl 5 je uitrust met kruisraket- 
ten, die afgevuurd worden op een vantevo- 
ren bepaald doel, 6 is de radiobasis waar¬ 
mee je direct kunt communiceren, 7 identi- 
ficeert objecten die je op de vergrote 
kaart kunt opzoeken en vak 8 tenslotte 
zorgt ervoor, dat je met je Zoid de kant 
opgaat, die je uitgekozen hebt. 

Als je dat allemaal onder de knie hebt 
tussen de vijandelijke aanvallen door, kun 
je eigenlijk pas beginnen, want het doel 
van het spel is het opsporen van 6 stukjes 
van de Superzoid Zoidzilla, die her en der 
onder "City Domes" begraven liggen. Wan- 
neer de 6 stukjes bij elkaar vergaard 
zijn, verander je zelf in Zoidzilla en ga 
je op zoek naar Redhorn the Terrible, die 
verslagen moet worden. 

Het klinkt allemaal eenvoudiger dan het is 
en wie het aandurft, zal er in ieder geval 
een behoorlijke tijd mee bezig zijn. Per- 
soonlijk vind ik het te ingewikkeld en ik 
heb dan ook nog geen stukje Zoidzilla 
gevonden. Dat laat ik liever aan de fana- 
ten over. 


ZOIDS is uitgebracht op cassette door 
Martech Software uit Engeland en de prijs 
is fl. 39,—. De cassette wil niet laden 
op de Philips MSX2 en op de SpectraVideo 
X"Press. 


Beefd * * * * 

_ Geluid* * * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 

Prijs * * * * * 

***** ZEER GO ED 
**** GGED 
*** REDELIJK 
.** MATIG 

* SLECHT 



KNIGHTMARE 


Wie weer eens werkelijk verslaafd wil 
raken aan een spel, kan zijn hart ophalen 
met Knightmare van Konami. Op cartridge 
verkrijgbaar, hetgeen op zich al een wel- 
kome afwisseling is. 

Op het eerste gezicht lijkt Knightmare een 
gewoon schietspelletje, maar schijn be- 
driegt en daar kom je tijdens het spelen 
snel achter. Volgens de handleiding ben je 
een Griekse held, die de godin Aphrodite 
uit een kasteel moet bevrijden en de ach- 
tergrond bestaat dan ook uit een speel- 
veld, dat omlijst wordt door Griekse zui- 
len. In het veld bevinden zich "magische 
juwelen”, die er uitzien als een blokje 
met een vraagteken er op en deze moeten 
eerst een aantal keren beschoten worden, 
voordat blijkt met wat voor juweel je te 
maken hebt. Er zijn verschillende kleuren, 
die elk een eigen uitwerking hebben: als 
je bijvoorbeeld over de donkerblauwe 
loopt, worden alle vijanden, die zich op 
dat moment binnen het speelveld bevinden, 
vernietigd. Met de rode kunnen alle vijan¬ 
den "bevroren" worden, zodat je ze makke- 
lijk kunt wegschieten etc. 

Voorts koraen er af en toe ovale "kristal- 
len” over het veld glijden, waarmee je 

wapens kunt kieseti; pijl en boog, boeme- 
rang, zwaard, vuurpijl etc. Met een ander 
kristal, dat gekenmerkt wordt door een "P" 
kun je je snelheid verhogen, een schild 
krijgen, jezelf tijdelijk onzichtbaar ma¬ 
ken of als "bommetje" op je vijanden af- 
gaan. 
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Het lijkt aliemaal makkelijk, zoals ik het 
vertel, maar terwijl je de kristallen in 
de gaten moet houden en de juwelen opti- 
maal moet benutten, wordt je achter elkaar 
bestookt door de raeest gemene vijanden: 
bommen, vleermuizen, eea soort robots die 
je met pijlea bestokea en op het eind van 
elke ronde een "opperwezen", dat uiteraard 
heel moeili Jk te bestrijden is en waarvoor 
je goed in je wapens en schildjes moet 
zittea. Pas nadat dit figuur ait de weg 
geruimd is, kun je aan de volgende ronde 
beginnen ea dan kun je je lol helemaal op. 


Ronde 1 is behoorlijk te spelen, maar het 
is al erg moetlijk om ronde 2 door te 
komen, om van de rest nog maar te zwijgen. 
Er schijneo 7 of 8 speelvelden te zijn, 
maar aiemand (behalve de makers natuur- 
lijk) weet dat zeker, omdat nog geen mens 
ter wereld zover gekomen is. 

Kortom, een uitdaging voor iedereen, die 
op andere spellen al uitgekeken is. Voor 
fl. 69,— heb je hieraan echt waar voor je 
geld. Zelfs mijn neef, die zeer kieskeurig 
is wat spellen betreft, raoest op het 
laatst met een breekijzer achter de compu¬ 
ter vandaan gehaald worden, dus dat is 
zeker een aanbeveling. 


Beefd * * * 96 * 

Geluid * * * * * 
Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 

Documentatie * * * * * 

Prijs * * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* . SLECHT 
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Er verschijnen tegenwoordig steeds meer 
verzamelcassettes waarop meerdere -soms 
wel wat oudere- programma's zijn onderge- 
bracht, Op '6 computer hits' staan de 
volgende programraa's: 

1) BRIAN JACKS SUPERSTAR 

2) DISC WARRIOR 

3) HUSTLER 

4) CHUCKIE EGG 

5) LES FLICS 

6) SPECIAL OPERATIONS 


Een zeer gevarieerd aanbod van spel 
programma's; sport, arcade, behendigheid 
en adventure spellen. Aliemaal erg goede 
spellen en deze cassette is dan ook 
bijzonder interessant voor diegenen, die 
pas een MSX computer hebben en nog geen 
-of weinig- software. Ongeveer een jaar 
geleden moest voor elk spel apart nog zo'n 
30 tot 40 Gulden betaald worden. Nu krijgt 
men voor 35 Gulden deze cassette met 6 
spellen. Wie nog niets heeft en wat 
spellen wil aanschaffen: Doen!! 



Na Alien 8 en Knightlore heeft Ultimate nu 
ook Gunfright uitgebracht. Wie de vorige 
spellen van Ultimate kent weet wel 
ongeveer hoe het spel eruit zal zien. Men 
is bij Ultimate niet erg creatief en de 
programma's lijken heel erg op elkaar. Zo 
ook 'Gunfright'; zij het in mindere mate, 

De opbouw (ook weer 3-D) en het spel zijn 
weer hetzelfde. Bij dit. spel moet een 
sheriff (de speler) een stel boeven 
uitschakelen. Het zoeken van de boeven 
gaat vrij eenvoudig, want je wordt hierbij 
geholpen door de dorpsbewoners. Ook de 
verplaatsingen over de velden gaan wat 
prettiger dan bij de voorgaande spelen, 

mede door de weinige hindernissen. Bij het 
uiteindelijke 'gevecht' tussen de sheriff 
en de boef gaat het aliemaal heel anders 
worden. Hier wordt namelijk een zeer snel 
reaktievermogen van de speler verlangd. Je 
moet supersnel je revolver trekken en 
schieten. Dat schieten moet dan wel op de 
juiste plaats gebeuren en het verplaatsen 
van het vizier gaat niet bepaald snel. De 
boef schiet terug en zijn snelheid is 
variabel, want het gaat om verschillende 
boeven en er zitten hele 'zware' (dus 
snelle) jongens tussen. 

Verder moet je in het spel nog op je geld 
passen (kogels kopen, boetes, enz.) en heb 
je ook nog een paard tot je beschikking. 

Er zitten allerlei leuke dingen in, maar 
die moet je zelf maar ontdekken. Voor wie 
de eerdere spellen van Ultimate al heeft 
is dit misschien wat minder sensationeel, 
maar op zich is dit weer een uitstekend 

spel waar je vele wekeo raee zoet bent. 

Het spel staat op cassette en kost 45 
Gulden. 

Gunfright draait NIET op de MSX-2, 
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Beeld * * * * 
Geluid * * * 

Spelkwaliteit * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * 

***** ZEER GDED 

**** GDED 
*** REDELIJK 
** MATIG 

* SLECHT 



SPACE RESCUE 


Heel leuk en aardig, maar dit soort 
spellen vind je regelmatig in onze 
MSX-Gids. Deze cassette kost FI. 25.00 en 
dat is vrij duur voor zo'n eenvoudig -en 
tamelijk traag- spel. 

Dit spel draait NIET op de MSX-2. 


Beeld * * * 
Geluid* * * 
Spelkwaliteit* * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
,** MATIG 

* SLECHT 



BOUNDER 


Hoe bedenken ze toch elke keer weer een 
origineel spel! Bounder is uniek! 

Je moet een tennisbal over een (scrollend) 
scherm verplaatsen waarbij je alleen op de 
zeskantige tegels met de bal mag 
stuiteren. A1 het andere (gebroken glas, 
muren, bergen enz.) is verboden terrein. 
Kom je bier toch terecht dan betekent dit 
het einde van het balletje. Je krijgt wel 
een behoorlijk aantal ballen, maar ze zijn 
snel op; de tegels zijn dun gezaaid. 
Verder zijn er nog allerlei objecten die 
de bal kunnen vernietigen of die juist 
nuttig kunnen zijn. Welke wat zijn moet je 
zelf uitzoeken. Ook zijn er plaatsen waar 
je de bal een extra grote sprong kan laten 
maken en verder nog plaatsen waar je maar 
af moet wachten wat voor voor- of nadeel 
deze opleveren. Na elke ronde -er zijn 174 

speelvelden!_ volgt een bonusronde. Het 
spel kan met zowel joystick als keybord 
gespeeld worden. Bij het spelen met het 
toetsenbord kunnen de cursor toetsen 
echter niet gebruikt worden. 

Een heel origineel en leuk spel, dat voor 
FI. 39,00 op cassette wordt geleverd door 
Gremlin Graphics Software. Zonder meer de 
moeite waard en een garantie voor vele 
avonden plezier. 

Wel weer jammer dat dit spel op de MSX-2 
niet geladen kan worden. 


Beeld * * * * 
Geluid * * * * 
Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 

Prijs * * * * * 

***** ZEER GQED 
*•** GDED 
*** REDELIJK 
** MATIG 

* SLECHT 
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DISKETTES 


De programma's uit de MSX Gids zijn ook op diskette 
ieverbaar. 


Er zijn alleen 80-track diskettes verkrijgbaar; formaat 
3.5 en 5.25. 

40-track is niet ieverbaar ! 


Diskette nr. 1. bevat de beiangrijkste programma's van 
MSX-Gids 1 t/m 3. Een verzametdiskette dus. 

Diskette nr. 4 bevat aile programma's uit de MSX-Gids 
nr. 4, diskette nr. 5 uit MSX Gids nr. 5, enz., enz. 

De diskettes starten automatisch op en zijn geheel menu- 
gestuurd met diverse keuze mogelijkheden en schermen. 
Alies in hi-res graphics. D.m.v. een letter-keuze-menu 
kunnen de programma's geladen of opgestart worden. 

Het menu bevat ook een overzichts programma, dat ge- 
schikt is voor twee drives en verder zijn er nog enige in¬ 
formatie- en advertentiepagina's op de diskette aanwezig. 

De 3.5. diskettes kosten f 25,— p. st. en de 5.25 versie 
kost f 1 5.—. 

Deze prijs is incl. verzendkosten (in speciale diskette 
verpakking). 

Besteilen door overmaking op giro 90951 5 t.n.v. A. Debels 
te Amsterdam. 

Voor Belgie is de prijs Bfr. 470 voor de 3.5 versie en 
Bfr. 280 voor de 5.25 versie, en betalingen kunnen ge- . 
schieden op rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasseit t.n.v. J. Herps, postbus 10252, 1001 
EF Amsterdam. 

***** Vergeet niet het nummer van de diskette te ver- 
melden !! ! 

***** IMOGMAALS: ALLEEN 80 TRACK DISKETTES 

***** Ini.: Tel. 020 - 320807 

(tussen 12.00 uur en 20.00 uur) 


Scjiiwute 

DISKETTES 


MSX ROM / BIOS HANDBOEK 

Een uitgave van: TERMINAL SOFTWARE PUBUCATIES 
Postbus 111, 5110 AC Baarle Nassau. 

Medio September 1986 verschijnt het Nederlandstalige 
MSX ROM/BIOS HANDBOEK. Dit300 pagina's tellende 
handboek bevat atle noodzakelijke informatie voor de 
serieuze MSX programmeur. 

Beschreven worden o.a.: 

ROM-BIOS 

ROM-BASIC INTERPRETER 

SYSTEEMVARIABELEN 

HOOKS 

INS EN OUTS van de Video Display Processor (VDP) 

INS EN OUTS van de Programmable Sound Generator 
(PSG) 

INS EN OUTS van de Programmable 
Peripheral Interface (PPI) 

Alle adressen zijn overzichtelijk gerangschikt, bovendien 
is een uitgebreide index aanwezig zodat het zoeken van 
bepaalde informatie snel kan geschieden. 

Al met al een onmisbaar naslagwerk voor hen die alies uit 
hun MSX willen halen. 

Reserveer nu al uw exemplaar door overmaking van f 55,— 
op giro 3667557, t.n.v. N. Joosen, Baarle Nassau o.v.v. 
MSX ROM/BIOS. Of door een wettig betaalmiddei (euro- 
cheque/postcheque) t.w.v. f 55,-te zenden aan onderstaand 
ad res. 

Betalen bij ontvangst kan ook, de prijs wordt dan: f 55,—b 
f 3,75 verzendkosten. Bij vooruitbetalen (zie boven) worden 
geen verzendkosten in rekening gebracht. 

Ook verkrijgbaar in Boekhandel en Computershop, via 
Computercollectief, MSX-SOFTPOST, Computerpost Raalte 
voor Belgie: MSX SHOP te Keerbergen of Computerwinkeltje 
te Mechelen. 


GEEN BANKCHEQUES S.V.P. 


De laatste tijd krijgen we steeds meer 
probleraen bij het innen van betaalcheques. 
Tot voor kort konden wij deze verzilveren 
bij de Amro bank. Dit is niet meer 
mogelijk. Deze bank verwijst ons sinds 
kort naar het kantoor van herkomst; een 
cheque uit Leeuwarden kan alleen nog daar 
ingewisseld worden, Bij de ABN Bank worden 

tegenwoordig op cheques uit het buitenland 
-in ons geval is dit Belgie- kosten in 
rekening gebracht. Van een cheque van FI. 
15,00 houden wij nog ca. 5 Gulden over!! 
In beide gevallen is het voor ons geen 
doen meer om cassettes of diskettes te 
leveren bij betaling met (Euro)cheques. 
Bankrekeninghouders kunnen hun geld via 
een overboekingsformulier naar de Postgiro 
overmaken. Wie geen Bank- of Girorekening 
heeft kan de cassettes/diskettes betalen 
door het verschuldigde bedrag per brief, 
met postzegels van 75c. INGESLOTEN naar 
ons op te sturen (alleen postzegels van 
75c.!!). Mensen in Belgie of andere landen 
kunnen -als zij geen bank- of girorekening 
hebben- het geld overmaken door rniddel van 
een internationale postwissel, welke op 
het postkantoor verkrijgbaar is. 
Bankcheques worden door ons teruggezonden! 
A.Debels. 





























STICHTING AROC AMSTERDAM: 


NIEUWE PHILIPS MONOCHROME MONITOR 


KENNISHAKING MET ROBOTICA 


In de maand juni ging in Amsterdam de 
Stichting AROC van start met een open dag 
in het gebouw Y-Tech aan de Van Diemen- 
straat in Amsterdam. 

AROC staat voor "Amsterdams Robotica Cen¬ 
trum" en de doelstellingen van de Stich¬ 
ting zijn: 

1. Het openen en instaodhouden van een 
permanente Robotica Expositie, bestemd 
voor scholen, groepen en andere geinte- 
resseerden. 

2. Het organiseren van workshops en kur- 
sussen in robotica en verwante compu- 
tertalen. 

3. Het doen presenteren van Robotica bij 
educatieve instellingen. 

4. Het organiseren en inrichten van een 
laboratorium voor het ontwikkelen van 
goedkope robotsystemen voor gehandicap- 
ten. 

Vanaf medio april verzorgt AROC een kursus 
in de computertaal LOGO en het besturen 
van eenvoudige robots. 

Aangezien de door de stichting gebruikte 
hardware in hoofdzaak bestaat uit MSX 2 
computers en de door Philips uitgebrachte 
LOGO-programmatuur, heeft deze stichting 
onze interesse opgewekt. 

De open dag in juni werd georganiseerd in 
samenwerking met het Y-TECH Innovatie 
Centrum met als doel het publiek te laten 
kennismaken met verschillende typen robot¬ 
systemen, besturing en toepassingen. 
Hiertoe was er een tentoonstelling inge- 
richt, waar diverse robots in werking te 
zien waren, waaronder de SpectraVideo 
robotarm met de Rogo interface. Ook waren 
er een zelfgebouwde schildpad van de 
Stichting zelf, Fisher bouwpakketten en 
diverse andere apparatuur te bewonderen. 

De voorzitter van de Stichting, John Wa¬ 
fer, was aanwezig om de doelstellingen 
nader te belichten en ook verzorgde hij in 
samenwerking met enkele anderen de demon- 
straties van de verschillende apparatuur, 
Hij hoopte, dat de Stichting mede door 
deze open dag de aandacht zou krijgen, die 
zij mijns inziens zeker verdient. 

Wij wensen alle medewerkers van de Stich¬ 
ting veel succes met hun innovatieve wer'k- 
zaamheden en hopen, dat veel mensen van de 
opleidingen en voorlichtingsfaciliteiten 
gebruik zullen gaan maken. 

Wilt u meer informatie over de doelstel¬ 
lingen en aktivitelten van de Stichting 
AROC, dan kunt u kontakt opnemen met de 
heren Wafer, De Vries, Jungbauer of van 
Leeuwen, bereikbaar onder telefoonnummer: 
020-242052/250869 of schrijven naar; 
Postbus 14572, 1001 L8 Amsterdam. 


SPECIAAL VOOR MSX 2 OP DE MARKT 


Philips heeft een nieuwe monochrome moni¬ 
tor uitgebracht, die qua kleur en lijn 
geheel aansluit op de MSX 2 computer. 

De monitor is groen en heeft een resolutie 
van 920 bij 300 pixels bij een scherm- 
grootte van 12 inch. Tevens beschikt het 
apparaat over een uitklapbeugel voor 
schuine stand. De videobandbreedte is 20 
MHz, de monitor heeft een anti-reflektie- 
scherm, composiet video en audio cinch 
aansluiting. 

Deze nieuwe monitor met typenummer VS 0040 
is uiteraard geschikt voor Philips compu¬ 
ters, maar kan natuurlijk ook voor diverse 
andere rnerken gebruikt worden. 

De adviesprijs bedraagt fl. 399,— 


COMPUTEREN OP DE CAMPING 

Met de computer naar de camping en toch 
een perfekt beeld? Dat kan nu met de door 
Samsung uitgebrachte zwart/wit monitor/TV. 
Dit portable apparaat heeft audio/video 
in- en uitaansluitingen en is tevens een 
8-kanalen TV toestel met een zeer goede 
beeldkwaliteit. Het apparaat werkt zowel 
op 12 als op 220 Volt en heeft -buiten de 
reeds genoemde aansluitingen- nog diverse 
andere mogelijkheden, zoals een koptele- 
foonuitgang, een sprietantenne en een 
SIGARETTENAANSTEKER, die op 12V werkt. 
Alleen voor dat laatste al zou je raeteen 
naar de winkel rennen en fl. 249,— neer- 
tellen. 


SOFTWARE VIA TELETEKST 


Over deze mogelijkheid is al lang gespro- 
ken, maar het schijnt nu eindelijk zover 
te zijn, als we ”De Telegraaf" van 14 juni 
mogen geloven. 

Het "downloaden” van software via Tele- 
tekst kan beginnen, want de Teletekst- 
redaktie is er technisch klaar voor, zo 
werd verteld door NOS Teletekst hoofdre- 
dakteur J.Marmelstein. 

De uitzendingen kunnen echter pas beginnen 
zodra een speciaal tussenschakelkastje de 
koppeling tussen teletekst en huiscomputer 
mogelijk maakt. 

Verder wordt momenteel door NOS-technici 
de haalbaarheid van invoering van VPS (een 
videoprograrameersysteem) onderzocht. 


OUDE HUMMERS MSX-GXDS 

Van de eerder versehenen MSX-Gidsen zijn 
alleen nog de nummers 4 (aprxl/mei 1986) 
en 5 (juni/juli 1986) verkrijgbaar door 
overmaking van fl. 7,95 per nummer op giro 
5036011 t.n.v. Uitgeverij J.Herps te Am¬ 
sterdam onder vermelding van de gewenste 
uitgave. 
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VERVOLG VAN HET VOORWOORD 


Over de nieuw te koroen machines kunnen we 
nog steeds niets schrijven maar de 
geruchten -en reeds gepubliceerde vage 
omschrijvingen in andere bladen- kloppen 
voor een gedeelte wel! Van een ECHTE MSX-3 
machine is voorlopig echter nog geen 
sprake, maar de gegevens over de machine, 
waar we "zo moeilijk" over doen worden 
over ca. 2 weken -d.m.v. een persbericht- 
openbaar geraaakt en bet fijne ervan lees 
je ongetwijfeld in de komende nummers van 
de MSX-Gids. 


LOGO 


Op verzoek van het LOGO CENTRUM EDE hadden 
we een vaste pagina voor LOGO in ons blad 
gereserveerd. Om onbekende redenen hebben 
we "tot op heden- niets meer van het LOGO 
CENTRUM gehoord ( en ontvangen) zodat deze 
rubriek -in ieder geval in dit nummer- 
verdwenen is. Jammer, maar helaas! 


RODDELS 


Er doen allerlei roddels de ronde over de 
MSX-Gids. Adverteerders worden benaderd 
door (anonieme) 'medewerkers' die weten te 
vertellen dat de MSX-Gids niet meer 
bestaat of binnenkort verdwijnt zodat het 
adverteren in ons blad geen zin meet 
heeft. Wij schenken norraaliter aan deze 
geruchten geen aandacht en in het verleden 
is gebleken dat roddels soras wel eens 
gunstig kunnen zijn, maar in dit geval 
gaat het om een fanaat die ons het licht 
in de ogen niet gunt. 

Belanghebbenden kunnen bij ons terecht 
voor informatie over de oplage van dit 
blad en de verkoopresultaten. Adver¬ 
teerders kunnen kopieen krijgen van de 
overzichten van de verkoopresultaten van 
onze verspreider en -zo nodig- geven wij 
toesteraming aan onze verspreider ora deze 
verkoopresultaten door te geven aan 
derden. 


MSX-1 PROGRAMMA'S OP DE MSX-2 


Er is vrijwel geen software van de MSX-1 
die zonder meer op de MSX-2 gedraaid kan 
worden. Voor de Philips VG-8235 is er 
echter wel een POKE die het draaien van 
een gedeelte van deze software mogelijk 
maakt. Met de opdracht: POKE &HFFFF,&HAA 
kan nu een gedeelte van de software op de 
Philips MSX—2 draaien. Tot op heden is er 
nog geen oplossing voor het verwerken van 
MSX-1 software op de SONY MSX-2, De 
bezitters van deze machine zullen dus 
geduld moeten hebben tot er een oplossing 
voor deze machine is gevonden. Programma's 
op disk, van de MSX-1, kunnen op de MSX-2 
gedraaid worden door deze machine op te 


starten met de CTRL-toets ingedrukt en 
vervolgens bovenstaande POKE te gebruiken 
alvorens het programma in te laden. Op 
deze manier kan b.v. Tasword op de MSX-2 
(Philips) gedraaid worden. Wel is met deze 
methode een tweede drive NIET meer 
beschikbaar. Voor Tasword is gelukkig een 
(gratis) update verkrijgbaar maar voor 
sommige andere programma's is dit 
-voorlopig- een oplossing. Bij onze 
softwaretests zullen wij verraelden welke 
programma's ook op de MSX-2 draaien en bij 
de tests in dit blad blijkt al dat dit er 
nog bar weinig zijn. 


CASSETTE PROGRAMMA'S OP COMPUTERS MET 

DISKDRIVE(S) 


Cassette programma's, die op computers met 
een aangesloten diskdrive (dit geldt voor 
MSX-1 EN voor MSX-2) niet willen draaien, 
dienen gebruikt te worden nadat de machine 
opgestart is met de CTRL- en SHIFT toetsen 
ingedrukt. De computer wordt nu opgestart 
zonder diskdrive(s) en de cassette pro- 
gramma's, die het bovenste gedeelte van de 
RAM gebruiken (daar zit ook een gedeelte 
dat door de diskdrive gebruikt wordt), 
werken nu probleemloos. Bij het draaien 
van MSX-1 cassette programma's op een 
MSX-2 dienen beide handelingen uitgevoerd 
te worden; dus: MSX-2 machine opstarten 
met CTRL+SHIFT toets ingedrukt (en even 
ingedrukt houden tot de BASIC zich meldt), 
vervolgens POKE&HFFFF,&HAA intoetsen en 
dan de laadcode van het programma opgeven 
en de cassette wordt feilloos ingelezen en 
het programma draait. In de handleidingen 
van de computers staat deze POKE echter 
niet vermeld en -nogmaals- deze POKE geldt 
alleen voor de Philips. 


DISKBASIC MSX-1 EN MSX-2 NIET GELIJK 


De diskbasic van de MSX-2 neemt maar 
liefst ruim 1500 bytes meer van het RAM 
geheugen in beslag dan de diskbasic van de 
MSX-1. De reden hiervan is voorlopig nog 
onduidelijk. Beide systemen gaan uit van 2 
drives, maar bij de MSX-2 kan ook met 1 
drive worden gewerkt en dan krijgen we 
deze 1500 bytes (plus nog wat extra) weer 
terug. Ook hier is van een standaard geen 
sprake en programma's die zijn geschreven 
voor de MSX-1 met diskdrive dienen 
aangepast te worden aan de MSX-2. 

Ook is het mogelijk de MSX-2 op te starten 
met de CTRL-toets ingedrukt. Er is dan wel 
geheugenruimte voldoende voor MSX-1 
programma's die het gehele geheugen nodig 
hebben maar een tweede drive kan dan niet 
meer worden gebruikt. 
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CP/M OP DE MSX-2? 


LISTING CONTROLE PROGRAMMA 


Er zijn vele verzoeken gekomen om het 
listing controle programma van het 'MSX 
COMPUTER MAGAZINE' ook te gebruiken in dit 
blad. Dit is echter niet mogelijk. Op 
publicaties zitten nu eenmaal rechten en 
we kunnen niet zomaar programma's -of 
artikelen- ait andere bladen overneraen. 
Ook zou dit enkele wijzigingen inhouden 
met de indeling van de layout. Een 
dergelijk programma kan binnenkort wel 
worden gebruikt maar hiervoor moeten we 
dan zelf een soortgelijk programma (laten) 
schrijven. Net als vorig jaar komt er weer 
een lezersonderzoek en dit zal eerst 
moeten uitwijzen of er nog wel belang- 
stelling genoeg is voor een dergelijk 
controle programma. Het geheel laten 
vervallen van een controle telling zou het 
gunstigste zijn, maar de lezers moeten dit 
-uiteindelijk- beslissen. 

Ook hebben diverse lezers een aanvulling 
op ons huidige controle programma gestuurd 
en een van deze Inzendingen (die allemaal 

vrijwel gelijk waren) plaatsen we hierbij. 
Door de volgende regels te wijzigen en / 
of te veranderen stopt de controle telling 
(bij gebruik van het beeldscherra) na een 
bepaald aantal regels zodat de STOP-toets 
niet meer hoeft te worden gebruikt. 
Wie gebruik maakt van een printer hoeft 
deze aanvulling niet over te nemen. 

65075 Y=0 

65260 GOSUB 65320: REM (tussenvoegen na S) 
65320 Y-Y+l 

65330 IF Y=18 THEN 65350 

65340 RETURN 

65350 ?:?"Verder? (V)"; 

65260 Y$=INKEY$:IF Y$ <> "V” AND Y$ <> "v M 
THEN 65360 

65370 Y=0:CLS:GOTO 65280 

Deze oplossing komt van N.M.v.Aalst uit 
Oldenzaal en wij bedanken hem voor de 
medewerking. 

PHILIPS VG-8230 / VG-8235 


Er bereiken ons nogal eens vragen over 
deze beide MSX-2 machines van Philips, 
vooral nu de VG-8230 soms -tegen een 
'zacht' prijsje- te koop aangeboden wordt, 
De VG-8230 is een vrijwel gelijk aan de 
VG-8235, maar de weinige verschillen zijn 
wel erg belangrijk. De VG-8235 heeft een 
beter (en dan ook behoorlijk beter) 
toetsenbord maar nog belangrijker is het 
grotere RAM geheugen. Dit grotere RAM 
geheugen hebben we echter nog niet kunnen 
vinden en een publicatie hierover in het 
PTC blad werkt niet op deze machine. Wij 
zijn zelf nog op zoek naar deze extra 64K 
Ram en zodra we deze gevonden hebben horen 
jullie er meer van. Wel is het verstandig 
de nieuwste versie van deze machine aan te 
schaffen (VG-8235) en de 'oude' versie is 
alleen leuk als de prijs ook leuk is. 



In vroegere advertenties van Philips werd 
de mogelijkheid van CP/M op de MSX-2 nog 
wel eens genoemd en recentelijk stond in 
de HCC nog te lezen dat CP/M software op 
de MSX-2 gedraaid kan worden. 

Dit klinkt wel leuk, maar de praktijk is 
wel even antlers. Zonder meer een CP/M 
schijf in de computer is niet mogelijk; de 
MSX-2 herkent deze schijf niet. Wel 
kunnen CP/M programma's en files 
overgezet worden naar MSXDOS maar daar is 
programmatuur voor nodig en deze wordt 
—tot op heden- door de leveranciers van 
MSX-2 machines nog niet geleverd. Wie dus 
zijn CF/M programma's over wil zetten zal 
dus zelf de programma's hiervoor moeten 
bedenken of overstappen op de Spectravideo 
X'Press. Bij deze machine wordt wel de 
benodigde programmatuur geleverd om CP/M 
software (onder DOS) op de MSX te ge¬ 
bruiken. We hebben de programma's van het 
Micropro pakket overgezet naar MSX DOS 
maar het resultaat is niet erg hoopgevend. 
Wordstar werkt probleemloos (op zowel de 
SVI 738 als de Philips VG-8235) maar is 
dusdanig traag geworii*** dat dit programma 
eigenlijk alleen nog maar gesehikt is voor 
enkele kleine stukken tekst* Langer dan 10 
minuten houd je het niet vol; je ziet 
—onder DOS— namelijk continue de cursor 
over het gehele beeldscherra been en weer 
schuiven. Zeer hinderlijk. De andere 
programma's hebben deze problemen niet. 
Sommige bewerkingen lopen zelf een ietsje 
sneller onder DOS maar de omgezette 
programma's zijn niet allemaal 100% 
betrouwbaar. Zo zijn we -hier en daar- wel 
eens een verminkte file tegengekoraen. Wie 
een MSX machine wil aanschaffen voor 
administratieve toepassingen en CP/M 
programma's wil gebruiken kan beter geen 
MSX-2 machine aanschaffen zolang er geen 
betrouwbare software bij geleverd wordt 
die deze CP/M software kan overzetten naar 
de MSX-2. Wordstar onder DOS op de MSX is 
onbruikbaar! 

VRAGEN VAN LEZERS 


Marco De Moei vraagt of het kwaad kan een 
computer vaak te RESETten. Nee, dit kan 
geen kwaad; de spanning blijft bij een 
RESET op de machine in tegenstelling tot 
het aan- en uitzetten van de computer. Dit 
laatste kan -wanneer het erg vaak gebeurt- 
wel schadelijk voor de machine zijn. Ook 
vraagt hij of de tekst die bij sommige 
programma's ingesproken is ook met BASIC 
te raaken is. Dit is vrijwel ondoenlijk. Er 
zijn echter programma's om tekst en/of 
muziek over te zetten naar de computer en 
te gebruiken bij een programma. 

De heer Kersten zoekt naar een moge— 
lijkheid om de files van ST-FILE ook naar 
de printer te sturen. Dit kan wel maar is 
erg lastig, omdat het programma erg 
compact is geschreven (om zoveel mogelijk 
ruimte over te houden voor files) en er 
vrijwel geen ruimte meer over is in het 
RAM geheugen. Buiten de printroutine zul- 
len dus meer wijzigingen moeten plaats- 
vinden. 
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Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
D£ LISTINGS VANAF KSX GIDS NR.3 

DE LISTINGS GIT GIDS 1 EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 

De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit programma publiceren wij een 
kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt u dan -ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden oragewisseld, dan is de telling toch 
goed. 

MSX-BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: nameli jk 
het REM-statement en regels die beginnen 
met ". Beide regels hebben over het 

algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programma"s 
geplaatst kan worden. U toetst dit 

programma in en kontroleert het met 

zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS:TESTER" op cassette 

worden gezet. (Wel eerst regel 65170 weer 
opneraen!!). 

Het programma wordt dan als ASCII-file op 
de band gezet. 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als volgt; 

U tikt het programma, dat u wilt hebben in 

en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven "hangen" en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CASrTESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programraa"s, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 
Voor het laden van het testprogramma moet 
de instruktie "MERGE" worden gebruikt en 
niet LOAD! (Dus MERGE "CASrTESTER"). Bij 
gebruik van LOAD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen oragewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASIC- 
instrukties wordt wel een fout 
geconstateerd. 


Een controle 
grote -of 
geplaatst. 


telling wor d t 
ingewikkelde- 


alleen bij 
programma"s 


Beeldmchermi WIDTH 37 


165000 
65010 
65020 
65030 
65040 
65050 
65060 
65070 
NT 

65080 PRINT "Weergave via beeldscherm 
of printer? 1 ' 

65090 PRINT SPRINT 




5 


dLl |L 1^ lip lip ^ lL ^ 4dLh pJLb dLp ^ da d d d 

^P i^i flr ^P ^P HP HP 

* LISTING TESTER 2 * 

* Door Alfred Debels # 

* (c)1986 De MSX Gi ds * 

t Amsterdam * 

ilj Jj |lj it* kIt uji uLl uUk ui ■JLp uLp gJu yyi LLf d uu 

cpp -rp rj* *jP HP wjft- "hP HP 


CLS:CLEAR:SCREEN 0s WIDTH 40sPRI 


U 


"B of P?s 
X$< >"B" AND 


X$< >"P 


65100 X$-1NKEV$sIF 
" THEN 65100 
65110 START=32769! 

65120 RG=START+2s T=0 

65140 VR=PE£K(START)+256#PEEK(START+1 
) 

65150 
65160 
65170 
65180 
65190 
65210 
65230 
65240 
65250 
65260 


NR=PEEK(RG)+256#PEEK(RG+1) 

IF VR=0 THEN 65290 
IF NR>=65000! THEN 65290 
S=0:FDR I=RG+2 TD VR-1 
A=PEEK(I) 

IF A=143 THEN I=VRs GDTD 65240 
S= S+AsNEXT 
S=SM0D256 
T=T+S 

IF X$="B" THEN PRINT USING "Reg 
els##### - ###"5 NR,S:GOTO 65280 
65270 LPRINT USING'"Regel:##### - ### 
s NR, S 

START=VRs RG=VR+2s GOTO 65140 
IF X$="P" THEN 65310 
65300 PRINT;PRINT "Totaals "}Ts END 
65310 LPRINT "Totaals "jTs END 


ii 


Regelt 65000 — 5B 
Regel:65010 - 58 
Regels 65020 - 5B 
Regel:65030 - 58 
Regels 65040 - 58 
Regels 65050 - 58 
Regels 65060 - 58 
Regels65070 - 151 
Regel:650B0 - 129 
Regels65090 - 32 
Regels65100 - 5 
Regels65110 - 23 
Regels65120 - 200 
Regels65140 - 133 
Regels65150 — 147 
Regels65160 - 132 
Regels65180 - 201 
Regels65190 - 96 
Regels65210 - 234 
Regels65230 - 164 
Regels65240 - 173 
Regels65250 - 219 


Regels65260 - 167 
Regels65270 - 13 
Regels65280 - 136 
Regels65290 - 239 
Regels65300 - 233 
Regels65310 - 42 
Totaals 3275 


(c) Juniors99 











MSX GEBRUTKERSGROEPEN 


de mini gids 

in deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciele aard ! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor- 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


GEZOCHT: Een vertaalprogramma van Commo¬ 
dore 64 naar MSX. Tevens iemand met een 
MSX computer, woonachtig in de buurt van 
Capelle a/d IJssel, die spelletjes wil 
ui twi sse l0ti * 

Eric Pantekoek, Othello 10, 2907 JD 

Capelle a/d IJssel. Tel. 010—4580476 

GEZOCHT: mede MSX 1/2 gebruikers in en om 

Den Haag om software, programmering (nog 
in BASIC) en ervaring uit te wisselen. 

Rob de Vroedt, Oosterhesselenstraat 558, 
2545 SL Den Haag. Tel. 070-213506 

TE KOOP: Solid state relais om 220V 
apparaat te schakelen met computer. 5V-lmA 

in = 220V 1, 5A uit. FI. 5,00 

Joost Bosman. Tel. 05910—40202 

GEZOCHT: mede MSX-ers om software te 

ruilen / uit te wisselen. 075—179103 

GEZOCHT: stamboomprogramma voor de MSX of 
informatie over dergelijke programraa's. 
Tel. 020-123206 


HCC MSX gg 
Postbus 51 
2630 AA Nootdorp 

MSX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 

"De Leke" 
p/a Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 

YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 

TILBURGSE MSX GEBRUIKERSGROEP 

Azuurweg 92 

5044 KD Tilburg. 

MUG MSX gebruikersgroep 
Christiaan Rakow 
Minervalaan 81 
1077 NT Amsterdam 
Tel. 020-766493 

MSX GEBRUIKERSGROEP UDENH0UT EN 0MSTREKEN 

p/a Wil van Aarle 

Armhoef 33 

5071 VW Udenhout 

MGU MSX gebruikersgroep Uden 
Ini. Carlo van Hout. 

Tel: 08859-52950 NIEUW TELEFOONNUMMER ! 


MSX-club Belgie-Nederland 
p/a Mottaart 20 
3170 Herselt Belgie 

MSX-CLUB-FLEV0 
Schouw 53-45 
8232 XJ Lelystad 



EEN AB0NNEMENT K0ST FL. 40,= PER 6 MUMMERS EN IS TE VERKRIJGEN 
DOOR OVERMAKING VAN DIT BEORAG OP GIRO 5036011 T.N.V. J.HERPS TE 
AMSTERDAM. 

VOOR BELGIE: 8FR. 750 OP 8ANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERALE BANKMAATSCHAPPIJ TE HASSELT T.N.V. J.HERPS, 

AMSTERDAM. 

Girobeta aLkaarten of Eurocheques (vergeet niet het nummer op de 
achterzijde in te vullen) kunnen gestuurd worden naar: 

Uitgeverij HERPS, Postbus 10252, 1001 EG Amsterdam. 

Tel. inlichtingen over abonnementen en Losse nummers: 020-327464 

(c) Junior 99 
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* onze nieuwe ZOMER 1986 CATALOGUS is uit. stuur ons ★ 

* een kaartje met je naam en adres en de vermeldirvg * 

* 'MSX GIDS' en we sturen hem gratis toe. * 

******************************************************** 

BOEKEN voor HSX COMPUTERS : 

40 GRAFISCHE PROGRAMMA'S IN MSX BASIC . f 29,50 

★PROGRAMMEERCURSUS HSX BASIC - ook voor MSX-2 . f 45,™ 

★ADVENTURES! VOOR DE HSX COMPUTER! . f 24,95 

MIRACULEUZE SPELEN VOOR UW MSX-COMPUTER . f 29,— 

★GRAFIEK EN GELUID VOOR DE MSX COMPUTERS . f 49,— 

*MSX MACHINETAALBOEK . f 49,— 

★BASICODE-3 + cassette voor MSX en MSX-2 . f 27,50 

★BASIC PROGRAMMA'S VOOR MSX COMPUTERS . f 24,75 

*LEREN OMGAAN MET MSX COMPUTERS . f 24,90 

50 PROGRAMMA’S VOOR MSX COMPUTERS .. f 21,50 

MSX BASIC - LEREN PROGRAMMEREN . f 24,50 

★MICROSOFT BASIC - GW BASIC, MSX BASIC, MBASIC f 69,— 

MSX BASIC leerboek deel 1 . f 24,50 

MSX BASIC leerboek deel 2 . f 24,50 

★MSX DOS leerboek deel 3 . f 24,50 

★MSX TRUUKS EN TIPS deel 4 . f 25,— 

★MSX TRUUKS EN TIPS deel 5 . f 25,— 

MSX COMPUTERS EN PRINTERS aansluiten, gebruik f 27,50 

MSX BASIC HANDBOEK uw MSX computer de baas ... f 49,50 

MSX DOS handboek voor iedereen .. f 26,50 

MSX DISK handboek voor iedereen .. f 29,50 

MSX QUICK DISK handboek voor iedereen . f 23,50 

★MSX MACHINETAAL HANDBOEK . f 34,50 

★MSX VERDER UITGEDIEPT peeks, pokes etc . f 23,90 

BOEKEN voor MSX-2 : 

★MSX-2 BASIC HANDBOEK . f 56,50 

★MSX-2 UITBREIDINGSHANDBOEK DISk/DOS . 1 37,50 

★MSX-2 TOEPASSINGSHANDBOEK utilities Cook MSX1) f 29,75 


in BELGIE 


het Computerwinkeltje pvba, M Sabbestr 39, 
B-2800 MECHELEN - tel 015/206645 


BOEKEN voor MSX COMPUTERS : 

MSX PRAKTIJKPR06RAMMA 1 S . f 24,50 

MSX TRUUKS EN TIPS deel 1 . f 25,— 

MSX TRUUKS EN TIPS deel 2. f 25,— 

★MSX TRUUKS EN TIPS deel 3. f 25,— 

MSX ZAKBOEKJE . f 19,50 

★EDUCATIEVE PROGRAMMAAS VOOR DE MSX COMPUTER .. f 29,50 
FINANCIELE PROGRAMMA'S VOOR MSX COMPUTERS .... f 25,— 

HET MSX SOFTWARE BOEK . f 27,50 

★PRAKTIJKSOFTWARE VOOR MSX COMPUTERS ook v disk f 27,50 
TERMINAL GRAPHICS ONTWERPBOEK MSX (layout blokJf 12,50 
WERKEN MET DE MSX COMPUTER, praktijkprogr. ... f 25,— 
DE MSX GEBRUIKERSGIDS . f 39,50 

ENGELSE en DUITSE boeken voor MSX : 

INTRODUCING MSX ASSEMBLY LANGUAGE & MACH CODE f 45,— 

THE MSX GAMES 800K (Gregory) . f 36,— 

HOW TO PROGRAM YOUR MSX COMPUTER PROFESSIONAL f 36,— 

BEHIND THE SCREENS OF THE MSX . f 45,— 

IDEAS FOR MSX . f 36,— 

★THE MSX RED BOOK - ROM, BIOS, Memory Map. f 45,— 

STARTING MACHINE CODE ON THE MSX. f 39,— 

USEFUL UTILITIES FOR YOUR MSX . f 17,50 

COMPLETE MSX PROGRAMMERS GUIDE . f 69,— 

MSX EXPOSED . f 39,— 

MSX GAMES BOOK (Lacey) . f 36,— 

PRACTICAL MSX MACHINE CODE PROGRAMMING . f 27,— 

PROGRAMMER'S GUIDE TO THE MSX SYSTEM. f 39,— 

★MSX BIOS . f 99,50 

GAMES FOR YOUR MSX . f 17,50 

★MSX FLOPPYBUCH (Data Becker) . f 69,— 

★ DAS MSX-BUCH MIT MSX-2 (SYBEX) . f 69,— 

TOEBEHOREN : 

SOFTCARD ADAPTOR voor SOFTCARD SOFTWARE . f 39,— 

ARCADE TURBO JOYSTICK (MSX compatible) . f 89,— 

NASHUA diskettes 3.5 inch ss per 10 stuks .... f 85,— 


ACTUELE EN NIEUW BINNENGEKOMEN MSX SOFTWARE 


FINAD MSX boekhoudsysteem dsk 

MSX HUISHOUDBOEKJE . 

MT-DISPLAY lichtkrant .. 

MT-VIDITEL cartridge . 

BASIC CURSUS MSX . 

MSX MUZIEK-NOTEN-CURSUS . 

TYPE CURSUS MSX . 

STAR SEEKER.. 

TEACH MSX maak je eigen les . 


f299,— 
f 24,50 
f199,— 
f299,— 
f 29,50 
f 19,50 
f 19,50 
f 45,- 
f 19,50 


LETTER SET MSX maak letters . f 19,50 

MSX SOUND MAKER . f 19,50 

MSX ZOOM/SPRITE EDITOR . f 19,50 

COMPUTERMATES spreadsheet ... f195,~ 

KUMA SPREADSHEET tape. f 135,— 

KUMA SPREADSHEET disk. f159,— 


DRAWS tekenprogramma . 

EDDY II tekenprogramma . 

MIDITRACK PERFORMER + inetrf 
PSG MUSIWRITER .. 


TASWORD MSX engels tape/disk 

★MSX-TEXT cartridge.. 

wordprocessor + database 
met nederlandse handleiding. 

ttti i i i; i i i i i i 11; i i s i i i 


f 48/ 
f 76/ 
f 495,' 
f120/ 

f 65,' 
f195,' 


n~n 


winkel open van woensdag t/m zaterdag 
verzendkosten f 6 per bestelling 


TT 


6 COMPUTER HITS . f 35 

★JACK THE NIPPER . f 39 

BOULDERDASH .. f 39 

★BOUNDER . f 39 

GHOSTBUSTERS . f 59 

★VAIKYR . f 39 

★HYPERRALLEY cartridge . f 69 

JET SET WILLY II . f 39 

LAZY JONES . f 45 

LE MANS autorace. f 45 

★ATTACK OF THE KILLER TOMATOES f 36 

★KNIGHTTIME . f 15 

★MOLECULE MAN . f 12 

★TURMOIL . f 15 

★JOURNEY TO THE CENTRE OF EARTH f 15 

★SCRABBLE MSX . f 45 

ROAD FIGHTER cartridge. f 69 

ROLLERBALL cartridge . f 64 

★MONOPOLY MSX . f 45 

SPACEWALK+FINDERS KEEP+CHILLER f 30 

★ZOIDS . f 39 

★KNIGHTMARE (Konami) . f 69 

★KONAMI BILLIARD. f 69 

★NIGHTSHADE . f 45 

★GUNFRIGHT . f 45 

t 111111 111 ... 

tussen 11.00 t/m 17.00 (maandag/dinsdag 

vraag onze ni 

1 I 1 I I 1 I II I I 1 1 I I I I I I I I I I I I 1 i l l l 


programmeertalen : 

HISOFT PASCAL COMPILER tape... 

HISOFT DEVPAC tape. 

★HISOFT C++ disk 3.5". 

★HISOFT PASCAL disk 3.5". 

★HISOFT DEVPAC disk 3.5". 

★MSX ZEN assembler DISK 3.5"... 

MSX LOGO . 

MSX KUMA FORTH . 

MT-DEBUG cartridge .. 


737 FLIGHT SIMULATOR 

FLIGHT DECK . 

NORTH SEA HELICOPTER 


f 135 
f 89 
f 185 
f 185 
f 185 
f 185 
f 95 
f 185 
f 149 

f 49 
f 60 
f 60 


EL 


DECATHLON . f 

FORMULA 1 SIMULATOR . f 

HOLE IN ONE golf . f 

★HYPERSPORTS 3 cartridge . f 

★KNOCKOUT 3D . f 

★SAMANTHA FOX STRIP POKER . f 

★KONAMI SOCCER . f 

★WAY OF THE TIGER MSX .. f 

★YIE AR KUNG FU II . f 

★BATTLE FOR MIDWAY . f 

★THE PRICE OF MAGIK . f 

l l l I l l l I I. 


I 


I 


gesloten) - alle prijzen inclusief BTW 
euwe ZOMER 1986 CATALOGUS aan. 

TTTTTTTT 


microcomputer tijdschriften boeken en software . 

IB 


111 1 1111 1 l■■[.■I 


1 i—L L L LI I i L l 1 1 1 I 


I I I IT 


59 
10 
64 
69 
39 
39 
69 
39 
69 
45 

45 

m i i 
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(c) Junior 99 


























































































































































































































































































































































































































































































































































































































































































































































































IS DE KLEUR VAN ONZE 

% J * • . » 



BEN JE NOG GEEN ABONNEE ? 

Dan heb je 2 weken de tijd om dat nog snel even te worden. 
Ook jij krijgt dan deze gratis extra editie, welke verschijnt 
rond 1 September a.s. 

Verder is deze extra uitgave in een beperkte oplage ook te 
verkrijgen via de boekhandel voor de prijs van f 7,95 
( alleen in Nederland ). 

De inhoud bestaat voor het overgrote deel uit listings, daar 
we de laatste tijd erg veel inzendingen binnen hebben 
gekregen die voor plaatsing in aanmerking kwamen. 

En wie weet, komt er nog een keerzo'n SPEC/ALE ORANJE 
UITGAVE ; misschien ook weer GRATIS voor de ABONNE ESI 


(c) Junior 99 


















